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000005 


55i 


000006 


552 


000007 


553 


000000 


554 


000006 


555 


000007 


556 




557 




558 




559 


100000 


560 


040000 


561 


020000 


562 


010000 


563 


004000 


564 


002000 


565 


001000 


566 


000400 


567 


000200 


5bB 


000100 


569 


000040 


570 


000020 


571 


000010 


572 


000004 


573 


000002 


574 


000001 


575 




576 




577 




578 




579 




sao 




581 




582 




583 




584 




585 


000000 


586 


000040 


587 


000100 


588 


000140 


589 


000200 


590 


000240 



# EQUIV EMT,HLT 



fREGISTER DEFINITION 



FUASIC DEFINITION OF ERROR CALL 



ROa 


%0 


Rla 


%1 


R23 


%2 


R3s 


%3 


R4s 


%4 


R5s 


%5 


R6b 


%6 


R7a 


%7 


MODEs 


%0 


R6&SP 




R7sPC 




)SWITCH 


DEFINITION 


SW15s 


100000 


SW14 = 


40000 


SW13a 


20000 


SW12 = 


10000 


SWlla 


4000 


SWIOs 


2000 


SW09& 


1000 


SW08 = 


400 


SW07 = 


200 


SW06a 


100 


SW05a 


40 


S«04b 


20 


SW03b 


10 


SW02 = 


4 


SWOla 


2 


SWOOa 


1 


.EQUIV 


Srt09#SW9 


.EOUIV 


SW08»SW8 


.EQUIV 


SW07,SW7 


.EQUIV 


SW06,SW6 


.EQUIV 


SW05,SW5 


.EQUIV 


SW04»SW4 


.EQUIV 


SW03f SW3 


.EQUIV 


SW02,SW2 


, EQUIV 


SW01«SW1 


.EQUIV 


swoo«swo 


PRTYOa 





PRTYla 


40 


PRTY2a 


100 


PRT*3a 


140 


PPTY4s 


200 


PPTYSa 


240 



I GENERAL 
| GENERAL 
? GENERAL 
J GENERAL 
) GENERAL 
t GENERAL 
» GENERAL 
? GENERAL 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
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591 


000300 


592 


000340 


593 




594 




595 


100000 


596 


040000 


597 


020000 


598 


010000 


599 


004000 


600 


002000 


601 


001000 


602 


000400 


603 


000200 


604 


000100 


605 


000040 


606 


000020 


607 


000010 


608 


000004 


609 


000002 


610 


000001 


611 




612 




613 




614 




615 




616 




617 




618 




619 




620 




621 




622 




623 


000004 


624 


000010 


625 


000014 


626 


000014 


627 


000014 


628 


000020 


629 


000024 


630 


000030 


631 


000034 


632 




633 




634 




635 


000000 


636 




637 




638 


000024 


639 


000024 006672 


640 


000026 000340 


641 


000030 005032 


642 


000032 000340 


643 


000034 006544 


644 


000036 000340 


645 




646 





PRTY6= 


300 


PRTY7s 


340 


^MISCELLANEOUS BIT ASSIGNMENT 


BIT15s 


100000 


BIT14b 


40000 


BIT13= 


20000 


BIT12s 


10000 


BITlla 


4000 


BITlOa 


2000 


BIT09a 


1000 


BIT08s 


400 


BIT078 


200 


BIT068 


100 


BIT05= 


40 


BIT04= 


20 


BIT03z 


10 


BIT02= 


4 


BITOls 


2 


BITOO= 


1 


.EQUIV 


BIT09,BIT9 


.EQUIV 


BIT08»BIT8 


.EQUIV 


BIT07,BIT7 


.EQUIV 


BIT06,BIT6 


.EQUIV 


BIT05#BIT5 


.EQUIV 


BIT04,BIT4 


.EQUIV 


BIT03,BIT3 


.EQUIV 


BIT02,BIT2 


.EQUIV 


BIT01,BIT1 


.EQUIV 


B1T00,BIT0 


I VECTOR 


ADDRESSES 


ERRVECa 


4 


RESVECa 


10 


TBITVEC 


al4 


TRTVECa 


14 


BPTVECa 


14 


IOTVECa 


20 


PWRVECs 


24 


EMTVEC= 


30 


TRAPVEC 


s34 


.EQUIV 


R4,CSR 


.EQUIV 


R4rRCSR 



,s0 
jTRAP CATCHER IN UNUSED LOCATIONS FROM - 776 
J LOCATION WILL CATCH IMPROPERLY LOADED VECTORS 

.324 

8PWRDN 

340 

GHLT 

340 

STRAP 

340 
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9 sl00 
TIMER 
340 

.8174 
DISPPEGtO 
SWREG: 



647 




000100 




648 


000100 


006312 




649 


000102 


000340 




650 








651 




000174 




652 


000174 


000000 




653 


000176 


000000 




654 








655 




000200 




656 








657 


000200 


000137 


003254 


658 


000204 


000137 


004116 



JMP 
JMP 



9#BEGIN 
085WPRNT 



{JUMP TO STARTING ADDRESS OF PROGRAM 
{RESTART AT 204, DO THE RESTART, 
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659 








660 




001100 




661 








662 








663 








664 








665 








666 








667 








668 








669 








670 








671 








672 








673 








674 


001100 


0t0046 




675 


001102 


017600 


000002 


676 


001106 


062766 


000002 000002 


677 


001114 


112046 




678 


001116 


001003 




679 


001120 


005726 




680 


001122 


012600 




681 


001124 


000002 




682 


001126 


004737 


001160 


683 


001132 


122726 


000012 


684 


001136 


001366 




685 


001140 


013746 


001524 


686 








687 


001144 


105366 


000001 


688 


001150 


002770 




689 


001152 


004737 


001160 


690 


001156 


000772 




691 


001160 


105777 


000334 


692 


001164 


100375 




693 


001166 


116677 


000002 000326 


694 


001174 


000207 




695 









,=1100 



>•».«■&»#»#* #••»*# «•■»»»»*»»##«• ****■»»* 



{ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE, 
;THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
jNOTEli NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
;NOTE2: SFILLS CONTAINS THE NUMBER OF KILLER CHARACTERS REQUIRED, 



{MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



SAVE RO 

GET ADDRESS OF ASCIZ STRING 

ADJUST RETURN PC 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

RETURN 

GO TYPE THIS CHARACTER 

CHECK IF THE CHAR. TYPED WAS A LINE FEED 

GO GET NEXT CHAR, IF NOT LINE FEED 

GET « OF FILLER CHARS, NEEDED 

AND THE NULL CHAR, 

DOES A NULL NEED TO BE TYPED? 

BR IF N0--G0 POP THE NULL OFF OF STACK 

GO TYPE A NULL 

LOOP 

! AIT UNTIL PRINTER IS READY 



{CALL! 






M) USING A TRAP INSTRUCTION 


{ 


TYPE 


, MESADR J 


;OR 

; 

J 


TYPE 
MESADR 




STYPES 


MOV 


P0,-CSP) { 




MOV 


P2(SP),R0 { 




ADD 


82,2(SP) j 


1$: 


MOVB 


(R0)+,-(SP) ; 




BNE 


2$ ; 




TST 


(SP)+ ; 




MOV 


(SP)+,RO ; 




RTI 


; 


2$: 


JSR 


PC, 5$ ; 


3$: 


CMPB 


S12,(SP)+ J 




BNE 


16 




MOV 


NULL,-(SP) { 


4s: 


DECB 


1CSP) { 




BLT 


3$ { 




JSR 


PC, 58 { 




BR 


4S { 


5$: 


TSTB 


9TPS 




BPL 


58 




MOVB 


2(SP),PTPB ; 




RTS 


PC 



{LOAD CHAR TO BE TYPED INTO DATA REG, 
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696 










697 










698 










699 




001200 






700 


001200 


013746 


011042 




701 


001204 


042737 


000070 


011042 


702 


001212 


104400 


001532 




703 


001216 


104402 






704 


001220 


012637 


001314 




705 


001224 


104400 


001314 




706 


001230 


122737 


000127 


001542 


707 


001236 


001004 






708 


001240 


052737 


000010 


011042 


709 


001246 


000430 






710 


001250 


122737 


000102 


001542 


711 


001256 


001004 






712 


001260 


052737 


000020 


011042 


713 


001266 


000420 






714 


001270 


122737 


000103 


001542 


715 


001276 


001014 






716 


001300 


012637 


011042 




717 


001304 


052737 


000040 


011042 


71B 


001312 


000413 






719 


001314 


000000 






720 


001316 


104400 


001526 




721 


001322 


104400 


001536 




722 


001326 


000724 






723 


001330 


005037 


001544 




724 


001334 


005726 






725 


001336 


104406 


001544 




726 


001342 


012700 


001476 




727 


001346 


062710 


000020 




728 


001352 


032737 


000040 


011042 


729 


001360 


001005 






730 


001362 


013737 


001544 


J01476 


731 


001370 


001001 






732 


001372 


022020 






733 










734 


001374 


012001 






735 


001376 


001700 






736 


001400 


104400 


001536 




737 


001404 


010146 






738 


001406 


004037 


006350 




739 










740 


001412 


032737 


000010 


011042 


741 


001420 


001014 






742 


001422 


012702 


000020 




743 


001426 


005046 






744 


001430 


112116 






745 


001432 


104400 


007152 




746 


001436 


004037 


006336 




747 


001442 


003 






748 


001443 


001 






749 


001444 


0O5302 






750 


001446 


001367 






751 


001450 


000751 







I DEBUG DUMP ROUTINE 

j »##«»*e® #«■«»#*#&»>&•&#« »##*#»««•&##««•****#**»##»&#*■»&.»#*»*« **#***#* 
,al200 

FLAG,-(SP) 

fINIT FLAGS 
{TYPE # 



jW? FOR WORD 
fSET FLAG BIT 



DMPHLTl 


MOV 


FLAG,-(SP) 




BIC 


870, FLAG 




TYPE 


,ASTRK 




GETCHR 






MOV 


(SP)*,68 




TYPE 


,68 




CMPB 


S127,8CHAR 




BNE 


IS 




BIS 


#BIT3,FLAG 




BR 


38 


1$: 


CMPB 


S102»$CHAR 




BNE 


2$ 




BIS 


SBIT4,FLAG 




BR 


3$ 


23J 


CMPB 


8103,8CHAR 




BNE 


3S 




MOV 


(SP)+,FLAG 




BIS 


#BIT5,FLAG 




BR 


DUMP 


681 


000000 




4$i 


TYPE 


, OUES 




TYPE 


,CPLF 




BR 


DMPHLT 


38! 


CLR 


WORK 




TST 


(SP) + 




ACCEPT 


, WORK 


DUMP! 


MOV 


SDMPLST,RO 




ADD 


#20, (RO) 




BIT 


#BIT5,FLAG 




BNE 


LI 




MOV 


WORK,DMPLST 




BNE 


LI 




CMP 


(R0)+, (R0) + 


Li: 


MOV 


(R0)+, Rl 




BEQ 


DMPHLT 




TYPE 


,CRLF 




MOV 


Rl, -CSP) 




JSR 


R0,$B2O16 




BIT 


8BIT3,FLAG 




BNE 


L3 




MOV 


820, R2 


L2: 


CLR 


-(SP) 




MOVB 


(R1)+,(SP) 




TYPE 


,MSG00 




JSR 


R0,$B2OCT 




.BYTE 


3 




.BYTE 


1 




DEC 


R2 




BNE 


L2 




BR 


LI 



;B? FOR BYTE 



*C? FOR CONTINUE 



SlNIT DUMP LIST 
jBUMP ADDRESS 



jSKIP 1ST TWO ENTRIES 



;Gt r ADDP OF DATA FROM LIST 
jBP IF END OF LIST 



•PUSH ADDR ON STACK 
;PRINT OUT ADDRESS 



>SET WORD COUNTER 3 8 



{DECREMENT WORD COUNTER 
jBR IF NOT = 
{GET NEXT ENTRY 
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752 








753 


001452 


012702 


000010 


754 


001456 


012146 




755 


001460 


104400 


007152 


756 


001464 


004037 


006350 


757 


001470 


005302 




758 


001472 


001371 




759 


001474 


000737 




760 


001476 


000000 




761 


001500 


000000 




762 


001502 


000001 




763 


001504 


000001 




764 


001506 


000000 




765 


001510 


000000 




766 


001512 


000000 




767 


001514 


177560 




768 


001516 


177562 




769 


001520 


177564 




770 


001522 


177566 




771 


001524 


000000 





L3! 


MOV 


810, R2 


1$: 


MOV 


(Rl)+,-(SP) 




TYPE 


,MSG00 




JSR 


R0,$B2O16 




DEC 


R2 




BNE 


IS 




BR 


LI 


DMPLST! 








.RX: 


,BLKW 


1 


»TXl 


.BLKW 





1 


TKSi 


177560 




TKB: 


177562 




TPSi 


177564 




TPB: 


177566 




NULL: 


.WORD 






{DECREMENT THE WORD COUNT 

{GET NEXT ENTRY 
{RESERVED FOP SW, REG 
;END OF TABLE FOP SW. REG 



;TTY KEYBOARD STATUS REG, ADDRESS 
{TTY KEYBOARD DATA BUFFER REG. ADDRESS 
;TTY PRINTER STATUS REG, ADDRESS 
{TTY PRINTER BUFFER REG, ADDRESS 
{CONTAINS NULL CHARACTER FOR FILLS 
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S£Q 0030 



772 








771 








774 








77S 








776 








777 


001326 


037440 


000040 


778 


001332 


005013 


000032 


779 


001336 


015 




700 


001537 


012 


000 


781 




001542 




782 




001344 




783 


001342 


000000 




784 


001544 


000000 




785 


001546 


000000 




786 


001550 


000000 




787 


001S52 


000000 




788 


001554 


000000 




789 


001556 


000000 




790 


001560 


000000 




791 


001562 


000000 




792 








793 


001564 


002604 




794 


001566 


003004 




795 


001570 


003076 




796 


001572 


003126 




797 


001574 


002604 




798 


001576 


003004 




799 


001600 


003076 




800 


001602 


003126 




B01 








802 








803 


001604 


000400 




804 


002604 






805 


002604 


000100 




806 








807 


003004 


177 


177 




003006 


040444 


052040 




003076 


177 


177 




003100 


041044 
003126 


030040 




003126 


177 


177 




003130 


041444 


041440 




003230 


030040 
003254 


031061 


808 




002604 




B09 




003004 




810 




003076 




811 




003126 




812 








813 









CONSTANTS AND WORKING STORAGE 



QUESl 
ASTRKl 
CRLFl 
LFl 



8CHAR1 

WORK! 

WORKll 

W0RK2I 

W0RK3I 

W0RK4I 

WORKS I 

W0RK6I 

FLAGSI 



,ASCXZ 
.ASCIZ 
.ASCII 



<15»<12> 9, # fl 
<13> 



.ASCIZ <12» 

.EVEN 

SWORKsWORK 





















{DATA PATTERN ADDRESS TABLE AND 



DATl 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



VDH 
DPI 
DP2 
DP3 
DP4 
DPS 
DP6 
DP7 



PATTERNS 

I ADDRESS OF VARIABLE DATA BUFFER 

j ADDRESS OF MESSAGE 1 

; ADDRESS OF MESSAGE 2 

j ADDRESS OF MESSAGE 3 

; ADDRESS OF MESSAGE 4 

{ADDRESS OF MESSAGE 3 

; ADDRESS OF MESSAGE 6 

I ADDRESS OF MESSAGE 7 



{RECEIVER DATA BUFFER STARTS HERE., 

IBUFl .BLKW 400 

VDB: 

.BLKW 100 {VARIABLE DATA BUFFER 

DPI! .BYTE 177,177 
042510 , ASCIZ 'SA THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG. *<15><12><001><177><1 77><177><l 

.EVEN 
DP2i .BYTE 177,177 

031061 .ASCIZ 'SB 01 23456789'<15><12><001X177X1 77X177X177> 
.EVEN 
DP3! .BYTE 177,177 

046517 .ASCII 'SC COM-TEST MAYNARD THE QUICK BROWN FOX JUMPED OVER THE LAZY DUG' 
032063 .ASCIZ ' 0123456789'<15X12X001 ><177><177><177X1 77> 
.EVEN 



DP4&VDB 
DP5»DPi 
DP6»DP2 
DP7sDP3 



{SPARE 
{SPARE 
{SPARE 
{SPARE 
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814 








815 








816 








817 


003254 






818 


003254 


012706 


001070 


819 


003260 


104414 


000340 


820 


003264 


104420 




821 


003266 


005037 


004774 


822 


003272 


012737 


003254 003462 


B23 


003300 


005037 


001562 


824 


003304 


000005 




825 








826 








827 








828 


003306 


022777 


100000 003530 


829 


003314 


001063 




830 








831 








832 








833 








834 


003316 


012701 


010164 


835 


003322 


005000 




836 


003324 


000000 




837 


003326 


017737 


005512 001562 


838 


003334 


032777 


020000 005502 


839 


003342 


001402 




840 


003344 


004737 


003404 


841 








842 


003350 


012701 


010406 


843 


003354 


032737 


040000 001562 


844 


003362 


001402 




845 


003364 


004737 


003404 


846 








847 


003370 


012701 


011004 


848 


003374 


004737 


003404 


849 








850 


003400 


000137 


004200 


851 








852 


003404 


011100 




853 


003406 


000000 




854 


003410 


017721 


005430 


855 


003414 


011100 




836 


003416 


000000 




857 


003420 


017721 


003420 


838 


003434 


011100 




859 


003426 


000000 




860 


003430 


017721 


003410 


861 


003434 


011100 




862 


003436 


100410 




863 


003440 


000000 




864 


003442 


017721 


005376 


865 


003446 


011100 




866 


003430 


100403 




867 


003452 


000000 




868 


003454 


017721 


003364 


369 


003460 


000207 





{ START OF PROGRAM 

{»#»#####«#««###«#«'««»####«'»««#«»«««#«#«»«««««««#»#«««#»««»««»««# 

BEGIN! 

MOV #STACK,SP {SETUP THE STACK POINTER 

STP5,PRTY7 

SUSWR 

CLP ftPASS {CLEAR THE PASS COUNT 

MOV #BEGIN,SLPADR {INITILIZE THE LOOP ADDRESS FOR SCOPE 

CLR FLAGS {RESET FLAGS 

RESET 
{»#«««««#««»«««««« «»««»#««#«##«««»««»«««»#««»«««««'»»#««»«««##«»#« 
{ GET PARAMETERS FROM OPERATOR 

{»«#4»««««««##««#»#«#«#»###«««4»»«««#«##««««*««««»«»»»«##«««««»«»## 

CMP #100000, 35WR {MANUAL INPUT?? 
BNE GETIT {BR IF NO 

{#»#«#««««'»»»««««»«##«««««#'»»#«#«#«««»««*«««#«#»#«#««««»#»*#«»««# 

{ SWITCH REG INPUT ROUTINE 

{####***»####*##*##«•#*#*#»»#*###**##*####•♦##*#*•##########*##••# 

{PRESET POINTER FOR DN-11 
{CLEAR DISPLAY 
{HALT FOR ISR REQUEST 
{SAVE ISR REQUEST INDICATORS 
{IS DNH SETUP REQUESTER? 
{BR IF NO 
{GO SETUP DN11 

{PRESET DMB ISR ADDRESS 
{IS DMB SETUP REQUESTED? 
{BR IF NO 
{GO SETUP DMH-B 

{PRESET VARIABLE ISR ADDRESS 
{GO SETUP VARIABLE ISR 

{GO GET OPERATIONAL SWITCHES 

{DISPLAY BUS ADDR 
{HALT FOP BUS ADDR 

{DISPLAY VECTOR ADDR 
{HALT FOR VECTOR ADDR 

{DISPLAY PRIORITY 
{HALT FOR PRIORITY 

{DISPLAY PARAM 81 

{BR IF PARAM NOT REQUIRED 

{HALT FOR PARAM 01 

1 

{DISPLAY PARAM 12 

{BR IF PARAM NOT REQUIRED 

{HALT FOR PARAM #2 



MANIN! MOV 


SDN*4,R1 


CLR 


PO 




HALT 






MOV 


&SWR, 


FLAGS 


BIT 


820000i 


9SWR 


BEQ 


,+6 




JSP 


PCMANBA 


MOV 


#DMB*4, 


Rl 


BIT 


#40000, 


FLAGS 


BEQ 


.4-6 




JSR 


PCMANBA 


MOV 


eVISR-M 


UR1 


JSR 


PCMANBA 


JMP 


SWRSET 




MANBAl MOV 


(Rl), 


RO 


HALT 






MOV 


eswR, 


(PI)* 


MOV 


(Rl), 


RO 


HALT 






MOV 


ISWR, 


(Rl)* 


MOV 


(Rl), 


RO 


HALT 






MOV 


8SWR, 


(Rl) + 


MOV 


(Hi), 


RO 


BMI 


MANINX 




HALT 






MOV 


P5WR, 


(PI)* 


MOV 


(Rl), 


RO 


BMI 


MANINX 




HALT 






MOV 


@SWR, 


(Rl)* 


MANINX! RTS 


PC 
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SEQ 0022 



870 


003462 


000000 






SLPADRI 











871 




















872 










}#««*#« 










873 
874 
875 










1 


ISR PARAM INPUT 


ROUTINE 




003464 


012700 


011000 




GETITI 


MOV 


8VISH, 


RO 


j PRESET ISP ADDR IN RO 


876 


003470 


104400 


007154 






TYPE 


,MSG01 




;<15><12> INTERFACE TYPE 


877 


003474 


104400 


011000 






TYPE 


,VISR 




(PRINTOUT ISR NAME 


878 
879 
880 


003500 


104400 


001526 






TYPE 


,QUES 






003504 


104404 


001544 






GETSTR 


rWORK 




jREADIN OPERATOR'S RESPONSE 


881 


003510 


123727 


001544 


000015 




CMPB 


WORK, 


315 


;IS IT CAR. RET? 


882 
883 

884 


003516 


001431 








BEQ 


GETBA 




|BR IF YES 


003520 


012700 


010160 






MOV 


SDN, 


RO 


(PRESET DN ISR AOOR 


88b 


003524 


023737 


010160 


001544 




CMP 


DN, 


WORK 


lIS IT DN? 


88b 


003532 


001004 








BNE 


DMBTST 




(BR IF NO 


887 


003534 


052737 


020000 


001562 




BIS 


I20000f 


FLAGS 


I SET DN11 FLAG 


888 


003542 


000417 








BR 


GETBA 




(GO GET DN11 PARAMS 


889 


003544 








DMBTSTI 










890 


003544 


012700 


010402 






MOV 


tDMB, 


RO 


(PRESET DM11B ISR 


891 


003550 


023737 


010402 


001544 




CMP 


DMB, 


WORK 


|IS IT DM? 


892 


003556 


001004 








BNE 


NOISR 




(BR IF NO 


893 


003560 


052737 


040000 


001562 




BIS 


*40000# 


FLAGS 


(SET DM1 1-B FLAG 


894 
895 
896 


003566 


000405 








BR 


GETBA 




IGO GET DM1 1-B PARAMS 


003570 








N01SRI 










897 
898 
899 


003570 


104400 


007177 






TYPE 


,MSG02 




!<15><12> ISR NOT LOADED! 


003574 


000000 








HALT 






(HALT 


900 


003576 


000137 


003254 






JMP 


BEGIN 




(TRY AGAIN 


901 


003602 


010004 






GETBAl 


MOV 


RO, 


R4 


(SAVE POINTER 


902 


003604 


022020 








CMP 


(RO)*, 


(BO)* 


J INCREMENT ISR POINTER 


903 


003606 


104400 


007222 






TYPE 


,MSG03 




;<15><12> BUS ADDHESSs 


904 
905 
906 


003612 


004737 


004776 






JSR 


PCGETANY 


(GET THE BUS ADDR 


003616 


104400 


007241 




GETVAl 


TYPE 


, MSG04 




!<ib><12> VECTOR ADDRESSs 


907 
908 
909 


003622 


004737 


004776 






JSR 


PCGETANY 


(GET THE VECTOR ADDR. 


003626 


104400 


007263 




GETPRl: 


TYPE 


,MSG05 




J<15><12> PRIORITY"* 


910 
911 
912 


003632 


004737 


004776 






JSP 


PCGETANY 


(GET THE PRIORITY 


003636 


005710 








TST 


(RO) 




(PARAM M REQUIRED? 


913 


003640 


100412 








BMI 


GETPi 




(BR IF NO 


914 


003642 


104400 


007277 




GETPRMi 


TYPE 


,MSG06 




»<15><12> PARAMS 41s 


915 
916 
917 


003646 


004737 


004776 






JSR 


PCGETANY 


(GET PARAM 


003652 


005710 








TST 


(RO) 




JPARAM 82 REQUIRED? 


918 


003654 


100404 








BMI 


GETP3 




;BR IF NO 


919 


003656 


104400 


007314 






TYPE 


,MSG07 




»<15><12> PARAMS I2a 


920 
921 
922 


003662 


004737 


004776 






JSR 


PCiGETANY 


(GET PARAM 


003666 


016437 


000016 


003704 


GETP3I 


MOV 


16(P4), 


ARIA 


(IS ASCII PARAM REQUIRED 


923 


003674 


100424 








BMI 


GETEX 




(BR IF NO 


924 


003676 


104400 


007331 






TYPE 


#M5G08 




*<15X12> ASCII PARAM* 


925 


003702 


104400 








TYPE 






(PRINTOUT ASCII PARAM 
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926 
927 
928 
929 
930 
93 1 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 



003704 
003706 

003712 
003714 
003716 
003722 
003726 

003730 
003734 
003736 
003742 
003744 



003746 
003752 
003754 



003760 
003764 
003772 
003776 
004002 
004004 
004012 
004014 
004022 
004030 
004032 
004036 
004040 
004044 
004050 
004056 
004064 

004070 
004074 
004076 

004102 
004106 
004110 
004114 
004116 
004124 
004126 
004134 
004140 
004142 
004144 
004150 



000000 
104400 

104404 
001604 
012702 
122712 
001407 

013703 
112223 
122712 
001374 
105013 



020427 
001461 
000137 



017701 
042777 
042701 
022701 
001013 
022737 
001003 
052737 
052777 
000002 
022701 
001014 
012700 
012710 
017737 
01773"' 
000137 

022701 
001002 
000137 

104400 
000005 
105227 
OOU^S 
022737 
001007 
052737 
104400 
104422 
000417 
104400 
105777 




TYPE 



rOUES 



001604 
000015 



003704 
000015 



011000 
003464 



175532 

000100 175522 

177700 

000007 

000176 011044 



000001 
000100 

000077 

001476 
001604 
004744 
004740 
001374 

000012 

003254 

010155 

000000 

000176 

000002 
007350 



007330 
175340 



GETSTR 

IBUF 

MOV 8IBUF, 

CMPB 015* 

BEQ GETEX 



MOV 

MOVB 

CMPB 

BNE 

CLRB 



CMP 
BEQ 
JMP 



ARIA, 

(R2)+, 

815, 

.-6 

(P3) 



R4, 

SWPRNT 
GET IT 



|GET ASCII INPUT AND 

I PUT IT HERE 
R2 (SETUP POINTER 
(R2) (WAS NEW DATA EN(ERED? 

|BR IF NO 

R3 (SETUP DEST. POINTER 
(R3) + (MOV INPUT TO DEST. 
(R2) (LAST DIGIT? 

(LOOP IF NO 

(INSERT ALL ZERO CHAR 



(WAS THIS THE VARIABLE ISR 
(BR IF YES 
(GET ANOPHER 



|TTY INTEPUPTS HERE WHEN MODULE IS RUNNING, 



011042 
175464 



001502 
001504 



TTYINTl MOV 
BIC 
BIC 
CMP 
BNE 
CMP 
BNE 
BIS 

Hi BIS 
RTI 

2$1 CMP 
BNE 
MOV 
MOV 
MOV 
MOV 
JMP 



NOQi 



CMP 

BNE 
JMP 



011044 
011042 



RSTARTl TYPE 
RESET 
INCB 

SWPRNT! CMP 
BNE 
BIS 
TYPE 
SETSWI 
BR 

XSWPNTl TYPE 
TSTB 



§TKB,R1 

#100,?TKS 

#177700, Rl 

37, HI 

2$ 

#SWREG,SWR 

IS 

»BITO,FLAG 

9100, 9TKS 

»'?, Rl 

NOQ 

»DMPLST,RO 

IIBUF, (RO) 

9IRDA,,RX 

PIXDA,,TX 

LI 

MS, Rl 
RSTART 

BEGIN 



#0 

• •4 

*SWREG,8WR 

XSWPNT 

!BXT1,FLAG 

,MSG09 

REST 

,HSG09 

9TKS 



(CLEAR TTY BUFFER 
(RESET INT, ENABLE 
(STRIP JUNK 



(IS XT ? 

(BR XF NO 

(SETUP DUMP LIST 

(TO PRINTOUT INPUT BUFFER 

(IF SWITCH REG, *0 PRINT RX BUFFER, 

|» * « « PRINT TX BUFFER 

(AND GO PRINT XT 

(IS XT LINE FEED? 
(BR XF NO 
(RESTART 



(DELAY HERE FOR AWXLE 



(<15X12> SET SWITCHES 
(WAIT FOR TTY INPUT 
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982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 

tooo 

1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 



004154 
004156 



100375 
017702 



004162 017746 
004166 004037 
004172 
004176 



175334 
004656 
006350 

104400 001536 

000401 



BPL ,-4 

MOV 9TKb,B2 

MOV 9SWR# »(SP) 

JSR R0»SB2O16 

TYPE ,CRLF 

BR , + 4 



J LOOP 

| RESET DONE FLAG 



^PRINTOUT SWITCHES 
jSKIP OVER HALT 





000000 






t 


SET 


SWITCH OPTIONS 






004200 


SWRSETJ 


HALT 


;HALT FOR SWITCH SETUP 














jSWOO-ONE WAY OUT 
















»SW01sONE WAY IN 
















;SW02»EXTERNAL LOOPBACK 














SSW03&INTERNAL LOOPBACK 














jSW04sLOOP 


ON DATA 
















;SW05*MONITOR INPUT 
















}SW06«MONITOR OUTPU1 
















;SW07sNO DATA COMPARE 














jSW08*EXTERNAL DATA 
















»5W09»DATA 


SELECT 
















;SW10sDATA 


SELECT 
















jSWllsDATA 


SELECT 
















|SW12s 


















|SW13sINHIBIT ERROR 


TYPEOUTS 














;SW14=LOOP 


ON TEST 
















ISW158HALT 


ON ERROR 




004202 


012737 


004210 


003462 


REST! 


MOV 


#RESTRT#8LPADR jSETUP 


LOOP 


004210 


017701 


004630 




RESTRT: 


MOV 


*SWR#R1 






004214 


000301 








SWAB 


Rl 






004216 


032777 


000017 


004620 




BIT 


«17,@SWR 




}*AS SOME MODE SELECTED? 


004224 


001003 








BNE 


. + 10 


»BR IF 


YES 


004226 


104400 


007637 






TYPE 


,MSG21 


}<15><12>NO MODE SELECTED, 


004232 


000723 








BR 


RSTART 


jGO GET SWITCH REGISTER. 


004234 


042701 


177761 






BIC 


B177761. Rl 


jSTMIP 


JUNK 


004240 


016137 


001564 


011022 




MOV 


DATC1), IXDA 


; SETUP 


INIT DATA ADDR FROM TABLE 


004246 


005701 








TST 


Rl 


; VARIABLE DATA SPECIFIED? 


004250 


001010 








BNE 


SUXCC 


j BR IF 


NO 


004252 


032777 


000400 


004564 




BIT 


•400# 9SWR 


I USE EXTERNAL DATA? 


004260 


001004 








BNE 


SUXCC 


JBR IF 


YES 










1 


GET VARIABLE DATA 







004262 
004266 
004270 
004272 

004300 
004306 
004310 
004316 
004316 
004324 
004332 



104400 
104404 
002604 
012737 

032777 
001403 
012737 

012737 
012737 
012777 



007372 

001604 

000400 

002604 

003760 
000340 
000100 



011020 

004536 

011022 

000060 
000062 
175154 



TYPE #MSG10 
GETSTR 
VDB 
SUXCC: MOV SIBUF, 



BIT 

BEO 
MOV 

MOV 
MUV 
MOV 



MOO, 9SWR 

SWRNXT 

8VDB, IXDA 

«TTY1NT,0»6O 
1340* @«62 
4100, PTKS 



f<15><12> ENTER DATA <15><12> 

;GET DATA 

;AND PUT IT HERE 

j SETUP READ BUFFER ADDR 

{EXTERNAL DATA? 

;BR IF NO 

; SETUP BUFFER ADDRESS 

» SETUP TTY VECTOR 

; 

;AND ENABLE INTERRUPTS 
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1038 004340 012702 001604 

1039 004344 005022 

1040 004346 022702 002004 

1041 004352 001374 



MOV 


•IBUF, R2 


CLH 


(R2) + 


CMP 


IIBUF*200«R2 


BNE 


CLRIB 



fCLEAR INPUT BUFFER 
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SEQ 0033 



1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

105b 

1057 

1058 

1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 



004354 
004362 
004370 
004376 
004404 
004412 
004420 



004422 
004430 
004436 
004444 
004452 
004460 
004466 
004470 
004472 
004500 
004504 
004510 
004512 
004516 

004524 
004530 
004536 
004542 
004546 
004552 



012737 
012737 
012737 
012737 
012737 
052737 
000441 



012737 
0127'" 
012- 7 
0127j# 
012737 
012737 
000240 
000415 
012737 
104414 
005227 
001375 
104400 
012737 

000137 
012737 
005037 
012706 
104414 
012737 



004560 032737 

004566 001402 

004570 004737 

004574 032737 

004602 001402 

004604 004737 



000060 
006312 
000340 
004422 
000340 
000100 



006312 
000340 
004472 
000340 
003100 
000111 



004516 
000000 
000000 

007570 
006312 

004530 
000006 
000006 
001070 
000000 
006350 



020000 
010200 
040000 
010422 



{ SETUP TIMER # 
} &&#####*#*«#.»4»##ft#*®ft###ft» 



006334 
000100 
000102 
000004 
000006 
177546 



000104 
000106 
000004 
000006 
172542 
172540 



SUTIHEI MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
BP 



§60, 

#TIMER, 

3340, 

8NOLC, 

#340, 

M00# 

NORTC 



MSECS tPRESET COUNTER 

100 ;5ETUP LINE CLOCK VECTOR 

102 {AND PRIORITY 

4 {SETUP BUS ERROR VECTOR 

6 {SET UP PRIORITY TO 7 

177546 {ENABLE LINE CLOCK 



{BUS ERROR RETURNS HERE IF NO LINE CLOCK 



000100 ISi 



000100 2S! 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

NOP 

BR 

MOV 



STIMER, 

#340, 

SIS, 

8340, 

11600,, 

#111* 



104 

106 

4 

6 

172542 

172540 



NORTC 
#23,100 



STPS,PRTYO 
INC 10 
bNE 38 
TYPE,MSG19 



MOV 



|TIMEP,100 



JMP .+4 
MOV #6,@S4 
CLP PS6 
MOV SSTACK, 
STPS,PRTYO 
MOV 



{SETUP RTC VECTOR 
{AND PRIORITY 
{SETUP BUS ERROR VECTOR 
{SET PRIORITY 
{SET COUNTER BUFFER. 
{ENABLE REAL TIME TIME CLOCK 
;WAIT 

{CONTINUE. 
{TRY LSI CLOCK 
; LOWER PSW TO 



J NO CLOCK AVAILABLE 



;SPARE JUMP 
;SET TRAP VECTOR 
{SET BUS ERROR VECTOR 
; SETUP STACK 



#SB2016,B2016 {SETUP BIN TO OCT ADDR 



{ DO TESTING NOW 

001562 BIT 820000, FLAGS ; WAS A DN11 SETUP 

BEQ DMCHK ;BR IF NO 

JSR PCDNGO ;G0 TO DNH ISP 



001562 DMCHK: BIT 
BED 
JSR 



#40000, FLAGS j WAS A DM11-B SETUP? 
VIGO jBP IF NO 

PCDMBGO ;G0 TO DM11-B ISP 



{ GOTO THE MODULE AND RUN ft 



004610 004777 004222 



PC8ISR+36 



{GO TO ISR 
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1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 



004614 
004620 
004622 
004624 
004632 
004634 
004640 
004644 
004650 
004654 
004660 
004662 
004666 
004674 
004676 
004700 
004704 
004706 
004712 
004720 
004722 
004724 
004732 
004734 
004740 
004744 
004746 
004752 
004756 
004760 
004762 
004764 
004766 
004770 
004774 



004776 
005000 
005004 
005010 
005014 
005020 
005024 
005026 
005030 



005237 
005746 
104416 
032777 
001034 
104400 
013746 
004037 
104400 
032700 
001012 
104400 
013737 
104400 
000000 
032700 
001007 
104400 
013737 
104400 
000000 
032777 
001005 
016600 
104414 
000110 
012706 
013700 
001404 
004710 
000240 
000240 
000240 
000137 
000000 



011046 
004037 
104400 
011037 
104406 
013710 
005720 
000240 
000207 



010000 004212 

007411 
004774 
006350 
001536 
000002 

010060 

011022 004676 



010106 
011020 



040000 004112 



000002 
000000 



001070 
000042 



006350 
001526 
001544 
001544 
001544 



{ END 

EOP: INC 
TST 
KBDI 
BIT 
BNE 
TYPE 
MOV 
JSR 
TYPE 
BIT 
BNE 
TYPE 
MOV 
TYPE 


BIT 
BNE 
TYPE 
MOV 
TYPE 


BIT 
BNE 
MOV 
STPS, 
JMP 
MOV 
MOV 
BEH 
JSR 
NOP 
NOP 
NOP 

SDOAGNs JMP 

3PASSI 



OF PASS ROUTINE 

SPASS 
-(SP) 



N 



4s: 



3s: 



5S! 

2s: 



is: 



ISW12,0SWP 

2S 

,MSG11 

SPASS, -(SP) 

R0,SB2O16 

,CRLF 

80WI,M0DE 

3S 

,MSG26 

IXDA,4S 



sown, MODE 
2$ 

,MSG27 
IPDA,58 



SBIT14,9SWR 
1$ 

2(SP),R0 
PRTYO 
(RO) 

#STACK,SP 
@#42, RO 
SDOAGN 
PC(RO) 



; INCREMENT PASS COUNTER 
jPUSH DOWN AND PROTECT STACK, 

{INHIBIT TYPEOUTS? 

{BP IF YES 

:<15><12> END OF PASS 

{PRINTOUT PASS COUNT 

{SKIP TRANSMIT TYPEOUT IF OWI 
{BR IF YES 
{TRANSMITTED DATAs 
:SET POINTER TO TXBUF 
{TYPE TXBUfFER 

{SKIP RECEIVE TYPEOUT IF OWO 

{BR IF YES 

{RECEIVED DATAs 

{SET POINTER TO RXBUF 

{TYPE RXBUFFER 

{LOUP ON TEST? 

{BR IF NO... 

{GET RETURN ADDRESS 

{GO BACK TO MODULE. 

{RESET THE STACK POINTER, 

{GET MONITOR ADDRESS 

{BR IF NONE 

{GO TO MONITOR 

{SAVE ROOM FOR 

{ACT-ll 

{RESTART TEST 



{ SUBROUTINE TO INPUT OCTAL WORD FROM OPERATOR 

I ft »##■»#«*##»«»# &«#«###»#»##&###»#■&###»#**#»*»#»##*#»****###*»*•»*• 

{PUT WORD ON STACK 

{AND TYPE IT 

{PRESET FOR DEFAULT (CR) 
{OCTAL READIN 
{MOVE IT TO ISR 
{BUMP POINTER 

{SUB/ROUTINE EXIT 

{ ERROR HLT HANDLER 

{e»###0ft#»###»ftft#e####* #fl .« # ^ #e###s####ft#ft##tt#0#ft#ft##ftft##########< 



GETANYl 


MOV 


(RO), -(SP) 




JSR 


R0,SB2O16 




TYPE 


,QUES 




MOV 


(RO),WORK 


ANYMOR: 


ACCEPT 


, WORK 




MOV 


WORK, (RO) 


ANYEX* 


TST 
NOP 
RTS 


(RQ) + 
PC 
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1131 


005032 






1152 


005032 


104414 


000140 


1153 


005036 


005237 


005730 


1154 


005042 


001775 




1155 


005044 


011637 


005726 


1156 


005050 


162737 


000002 


1157 


005056 


010146 




1158 








1159 


005060 


032777 


020000 


1160 


005066 


001070 




1161 








1162 


005070 


104400 


001536 


1163 


005074 


117701 


000626 


1164 


005100 


006301 




1165 


005102 


016137 


005270 


1166 


005110 


104400 


005320 


1167 


005114 


104400 


007430 


1168 


005120 


013746 


005726 


1169 


005124 


004037 


006350 


1170 


005130 


005701 




1171 


005132 


001446 




1172 








1173 








1174 


005134 


022701 


000016 


1175 


005140 


001023 




1176 


005142 


005702 




1177 


005144 


001406 




1178 


005146 


104400 


007767 


1179 


005152 


110246 




1180 


005154 


004037 


006336 


1181 


005160 


003 




1182 


005161 


001 




1183 


005162 


005703 




1184 


005164 


001410 




1185 


005166 


104400 


010003 


1186 


005172 


110346 




1187 


005174 


004037 


006336 


1188 


005200 


003 




1189 


005201 


001 




1190 


005202 


104400 


001536 


1191 


005206 


000420 




1192 








1193 








1194 


005210 


005702 




1195 


005212 


001405 




1196 


005214 


104400 


007441 


1197 


005220 


010246 




1198 


005222 


004037 


006350 


1199 








1200 


005226 


005703 




1201 


005230 


001407 




1202 


005232 


104400 


007453 


1203 


005236 


010346 




1204 


005240 


004037 


006350 


1205 


005244 


104400 


001536 


1206 









005726 



5TPS,PRTY3 


1 LOWER PSW PRIOTXTY TO 3 


INC 


8ERTTL 


? INCREMENT ERROR COUNTER 


BEQ 


SHLOT 


j MAKE SURE ITS NOT ZERO 


MOV 


(SP) ,|HLTAD 


ISAVE ADDRESS OF HLT 


SUB 


82, »HLTAD 


/AND BACK IT UP 


MOV 


Rlf -(SP) 


/SAVE Rl 


BIT 


SBXT13* fSWR 


I INHIBIT ERR TYPEOUTS? 


BNE 


TRX 


/BR IF YES 


TYPE 


,CRLF 




MOVB 


P8HLTAD,Rl 


f EXTRACT HLT CODE 


ASL 


Rl 


fAND ALIGN IT 


MOV 


EMTAB(Rl),,*10 


J GET HEADER ADDRESS 


TYPE 


,EMO 


/AND PRINT HEADER 


TYPE 


,MSG12 


J < AT LOC > 


MOV 


8HLTAD,-(SP) 


j GET HLT ADDRESS 


JSR 


R0#SB2O16 


|AND PRINT IT 


TST 


Rl 


|HLT CODE » 0? 


BEQ 


TRX 


/BR IF YES 


CMP 


816, Rl 


JIS IT HLT*7? 


BNE 


18 


JBR IF NO 


TST 


R2 


1 PRINTOUT BAD DATA? 


BEQ 


21 


IBR IF NO 


TYPE 


,MSG23 


!< BAD DATA" > 


MOVB 


R2,-(SP) 


I GET DATA 


JSR 


R0,8B2OCT 


{AND PRINT IT 


• BYTE 


3 




.BYTE 


1 




TST 


R3 


fPRINT OUT GOOD DATA? 


BEQ 


38 


/BR IF NO 


TYPE 


, MSG24 


,< GOOD DATA* > 


MOVB 


R3,-(SP) 


> GET DATA 


vJSH 


R0,SB20CT 


|AND PRINT IT 


.BYTE 


3 




.BYTE 


t 




TYPE 


fCRLF 




BR 


TRX 




TST 


H2 


(PRINTOUT RCV CSR? 


BEQ 


TP3 


;bP IF NO 


TYPE 


,M5G13 


/ < RCV CSRs> 


MOV 


R2, -(SP) 


/GET DATA 


JSH 


R0,SB2016 


/AND PRINT IT 


TST 


R3 


/PRINTOUT XMIT CSR? 


BEQ 


TRX 


/BR IF NO 


TYPE 


,MSG14 


t < XMIT CSR»> 


MOV 


R3, -(SP) 


/GET DATA 


JSP 


ROf 8B2016 


/AND PRINT IT 


TYPE 


,CRLF 





) 
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SEQ 0029 



1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 



U2§ 



005250 
005256 
005260 

005262 
005264 
005266 

005270 
005272 
005274 
005276 
005300 
005302 
005304 
005306 
005310 
005312 
005314 
005316 

005320 
005333 
005343 
005363 
005407 
005422 
005446 
005542 
005565 
005642 
005667 
005711 

005726 
90573Q 



032777 
001401 
000000 

104416 
012601 
000002 

005320 
00533J 
005343 
005363 
005407 
005422 
005446 
005542 
005565 
005642 
005667 
005711 

051105 

127 

127 

104 

104 

047104 

041522 

040504 

105 

047125 

116 

116 

005726 

000000 

000000 



100000 003566 TRXl 



047522 
044501 
044501 
026516 
030516 
030461 
020126 
040524 
051122 
054105 
046530 
046530 



020122 
044524 
044524 
030461 
026461 
041440 
052502 
041440 
051117 
042520 
050040 
040440 



EMOl 

EMU 

EM2I 

EM3I 

EM4I 

EM5I 

EM6I 

EM7t 

EM10I 

EMltl 

EM12I 

EM13I 

8HLTADI 
SgRTTLl 



BIT 
BEQ 
HALT 

KBDIN 

MOV 

RTI 

EMO 

EMI 

EM2 

EM 3 

EM4 

EM5 

EM6 

EM7 

EM10 

EMU 

EM12 

EM13 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

•ASCIZ 

.ASCIZ 

•ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 







•BIT15, eSWR 

HLTX 



(SP)*, Rl 



/HALT ON ERROR? 
/BR IF NO 



/RESTORE Rl 

/AND RETURN TO PROGRAM 



"ERROR HALT" 

"WAITING" 

"WAITING TO XMIT" 

"DN-U NOT AVAILABLE" 

"DNH-ERROR" 

"DNU CALL ABANDONED" 

"RCV BUFFER FULL, END OF MESSAGE CHARACTER(OOl) WAS NOT FOUND" 

"DATA COMPARE ERROR" 

"ERROR RCV CSR>C0NTENT3 OF SELECT REGISTER" 

"UNEXPECTED INTERRUPT" 

"NXM PRINCIPAL CAR" 

"NXM ALT CAR" 
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SEQ 0030 



1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1236 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 



005732 
005734 
005742 
005746 
005750 
005756 
005764 
005772 



005774 
005776 
006000 

006002 
006004 
006010 
006014 

006016 
006022 
006026 
006034 
006036 
006040 
006040 
006044 
006052 
006054 
006060 
006064 
006070 
006074 
006100 
006104 
006110 
006112 



011646 
016666 
105777 
100375 
017737 
042737 
013766 
000002 



011602 
012201 
010216 

104402 
104400 
122726 
001011 

104406 
113721 
122737 
001370 
000761 

113721 
022737 
001353 
112721 
104400 
112721 
112721 
112721 
112721 
112721 
105011 
000002 



000004 
173546 

173542 
177600 
001542 



{ READ A CHAR, ROUTINE 



I 
I 

IREADC: 



CALLs 



001542 
001542 
000004 



MOV 

MOV 

TSTB 

BPL 

MOV 

BIC 

MOV 

RTI 



(SP),«(SP) 

4(SP),2(SP) 

PTKS 

,»4 

9TKB ,SCHAP 

#177600, SCHAR 

SCHAR, 4(SP) 



001542 
000136 



001544 
001544 
000136 



001542 
000015 

000012 
001537 
000001 
000177 
000177 
000177 
000177 



GETCHR { INPUT A CHAR FROM TTY 

| RETURNS HERE WITH CHAR ON STACK 

{PUSH THE PC 

{SAVE THE PS 

fIS RECEIVE DONE 

{LOOP IF NO 

;SAVE THE CHAR, 

{SSTRIP JUNK 

{PUT CHAR ON STACK 

{EXIT 
I »##*$****»»&#&**#*****«■»****&*&<»#»•» •»#»#»*»**#«#•&#**»*»»«**»*#»** 
1 READ A STRING ROUTINE 

I *»#•&#«*#*#<&##&**«• #»&#«»»##»&#&#&»#*»&##*«»»#«**#####»#######»»«# 

{ INPUT A STHING OF CHARS FROM TTY 
S ADDRESS 
^TERMINATE INPUT WITH LINE FEED 
{SETUP ADDRESS OF INPUT BUFFER 
{INCREMENT RETURN ADDRESS 
{AND PUT BACK ON STACK 

{GET A CHAR 

{IS IT BINARY DELIMITER 
{BR IF NO 

{GET OCT, CHAR 
{STORE OCT. CHAR. 
{TERMINATORsBIN, DELIMITER? 
{BH IF NO 



{STORE CHAR. IN BUFFER 
{IS IT END OF INPUT (CAR. 
{BR IF NO 

{TYPE A LINE FEED 
{INSERT RX TERM. 
{AND A FILL 
{INSERT ANOTHER FILL 
{INSERT 3RD FILL 
{INSERT 4TH FILL 
{PUT ZEROS AT END 



{ 


CALLa 


GETSTR 




; 




ADDR 


{TO Tl 


SREADSl 


MOV 


(5P), 


R2 




MOV 


(R2)*, 


Rl 




MOV 


R2, 


(SP) 


GETICI 


GETCHR 








TYPE 


,8CHAR 






CMPB 


#136, 


(SP) + 




BNE 


GOTIC 




1 

OCT: 


ACCEPT 


, SWORK 






MOVB 


SWORK, (Rl)+ 




CMPB 


9136, 8CHAR 




BNE 


OCT 






BR 


GETIC 




GOTIC: 










MOVB 


SCHAR, 


(Rl) + 




CMP 


#15, 


SCHAR 




BNE 


GETIC 






MOVB 


S12,(R1)+ 




TYPE 


,LF 






MOVB 


lOOlf (Rl)+ 




MOVB 


8177, 


CR1H 




MOVB 


1177, 


(Rl) + 




MOVB 


#177, 


(Pl) + 




MOVB 


8177, 


(Rl)* 




CLRb 


(Rl) 






RTI 
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1278 








{«#»**»**«**■•» »» »#««*#«#«»»* 4 


»•»*■»■»#*.»&»»##* aaa***-** 


1279 








{ROUTINE TO ACCEPT AN OCTAL 


NUMBER FROM THE TTY 


1280 








{CALL: 








1281 








; 


ACCEPT 


.ADDR 


{PUT OCTAL NUMBER IN ADDR 


1282 








; 








1283 


006114 






SACCEPTJ 






1284 


006114 


010046 






MOV 


R0,-(SP) 


{SAVE PO 


1285 


006116 


010146 






MOV 


R1,-(SP) 


{SAVE Rl 


1286 


006120 


010246 






MOV 


R2,-(SP) 


{SAVE R2 


1287 


006122 


010346 






MOV 


R3,-(SP) 


{SAVE R3 


1288 


006124 


016600 


000010 




MOV 


10(SP),RO 


{GET ADDRESS OF WHERE TO PUT NUMBER 


1289 


006130 


005001 




in 


CLR 


Rl 


{CLEAR PARTIAL NUMBER 


1290 


006132 


012702 


000006 




MOV 


36, P2 


{MAX. # OF DIGITS ALLOWED 


1291 


006136 


104402 




251 


GETCHP 




{GET ONE CHARACTER 


1292 


006140 


112603 






MOVB 


(5P)+,R3 


{AND PUT IT IN R3 


1293 


006142 


110337 


006310 




MOVB 


R3,65 




1294 


006146 


104400 


006310 




TYPE 


,6$ 


{ECHO THE CHARACTER 


1295 


006152 


022703 


000025 




CMP 


S25,R3 




1296 


006156 


001451 






BEQ 


83 




1297 


006160 


022703 


000015 




CMP 


#15, R3 


{WAS THIS CHARACTER A "CR"? 


1298 


006164 


001427 






BEQ 


55 


{BR IF YES 


1299 


00616b 


022703 


000040 




CMP 


#40, R3 


{WAS "SPACE" HIT? 


1300 


006172 


001433 






BEQ 


78 


{BR IF YES 


1301 


006174 


022703 


000136 




CMP 


#136, R3 


{WAS " " " HIT? 


1302 


006200 


001430 






BEQ 


78 


{BR IF YES 


1303 


006202 


032703 


000110 




BIT 


fU0,R3 


{INSURE THE CHARACTER IS 


1304 


006206 


001011 






BNE 


48 


{A DIGIT BETWEEN AND 7, 


1305 














f 


1306 


006210 


005302 






DEC 


R2 


{CHECK NUMBER OF CHARACTERS 


1307 


006212 


002407 






BLT 


46 


{BR IF TO MANY 


130B 


006214 


006301 






ASL 


Rl 


{POSITION PARTIAL NUMBER 


1309 


006216 


006301 






ASL 


Rl 


{FOR THIS DIGIT 


1310 


006220 


006301 






ASL 


Rl 




1311 


006322 


042703 


177770 




BIC 


STC<73>,R3 


{GET RID OF THE ASCII JUNK 


1312 


006226 


050301 






BIS 


R3,R1 


{COMBINE THIS DIGIT WITH PARTIAL 


1313 


006230 


000742 






BR 


21 


{GO GET ANOTHER DIGIT 


1314 


006232 


104400 


001526 


43? 


TYPE 


,QUE5 


{TYPE 9 ? B 


1315 


006236 


104400 


001536 




TYPE 


,CRLF 


{TYPE CARPAGE RETURN AND LINE FEED, 


1316 


006242 


000732 






BR 


it 


}GO START OVER 


1317 


006244 


104400 


001537 


531 


TYPE 


,LF 


{FOLLOW »CR* WITH A 9 LF B 


1310 


006250 


022702 


000006 




CMP 


16, R2 


{WERE ANY DIGITS INPUT 


1319 


006254 


001002 






BNE 


,46 


{BR IF YES 


1320 


006256 


013001 






MOV 


f(R0)+,Rl 


{USE OLD DATA 


1321 


006260 


005740 






TST 


»(R0) 


{BACKUP R0*« 


1322 


006262 


010130 




71! 


MOV 


R1«»CR0)+ 


{PASS THE NUMBER TO THE USER 


1323 


006264 


010066 


000010 




MOV 


R0,10(SP) 


{SET FOR RETURN 


1324 


006270 


012603 






MOV 


(SPH,R3 


{RESTORE R3 


1323 


006272 


012602 






MOV 


(SP)+,R2 


{RESTORE R2 


1326 


006274 


012601 






MOV 


(6P)+,R1 


{RESTORE Rl 


1327 


006276 


012600 






MOV 


(SP)*,R0 


{RESTORE RO 


1328 


006300 


000002 






RTI 






1329 


006302 


104400 


010130 


8$i 


TYPE, 


CTLU 




1330 


006306 


000710 






BR 


16 




1331 


006310 


000 


000 


SSI 


e BYTE 


0,0 


{STORAGE FOR ASCII CHAR, AND TERMINATOR 
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SEQ 0033 



1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

13bl 

1362 

1363 

1364 

1365 

1366 

136 7 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 



006312 005337 
006316 001005 



CLOCK INTERRUPT ROUTINE 



006320 
006326 
006332 
006332 
006334 



006336 
006342 
006346 
006350 
006356 
006364 
006372 
006374 
006376 
006400 
006404 
00640b 
006412 
006416 
006422 
006426 
006430 
006432 
006434 
006436 
006440 
006442 
006444 
006446 
006452 



012737 000060 
005237 011032 



000002 
000000 



DEC 
BNE 
MOV 
INC 



MSECS 
TIMEX 
160, 
TIME 



{COUNT 60 CYCLES 
;BR IF NOT 60 
{RESTORE COUNT 
I INCREMENT SECONDS 



112037 
112037 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
10001b 



006543 
006541 

000001 
000006 
000005 



006543 

000006 
006542 
006541 
000010 



TIMEX: 

RTI {RETURN FROM INTERRUPT 

MSECS: 

{BINARY TO OCTAL (ASCII) AND TYPE 

{SB20CT- — ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

{CALL: 

1 



) 



MOV 
JSR 
.BYTE 
.BYTE 



NUM,-(SP) 

R0r$B20CT 

N 

M 



I NUMBER TO BE TYPED 

{CALL FOR TYPEOUT 

|Nsl TO 6 FOR NUMBER Or v GITS TO TYPE 

fMal UR 

;l*TYPE LEADING ZEROS 
yOsSUPPRESS LEADING ZEROS 



,SB201 ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST SBSOCT OR SB2016 

{CALL; 



MOV 
JSR 



NUM,-(SP) 
ROt SB201 



;SB2016— ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

;CALL: 

; MOV NUM,-(SP) 

{ JSR R0,SB2O16 



006541 SB2016: 

006543 

006540 SB2U1: 



SB20CT: MOVB 
MOVb 
BH 

MOVB 
MOVB 
MOVB 
MOV 
MOV 
MOV 
MOVB 
NEC 
ADD 
MOVB 
MOVB 
MOV 
CLR 
ROL 
BK 
ROL 
ROL 
ROL 
MOV 
ROL 
DECb 
BPL 



(RO)tiSOMODEtl 

(R0)+,60FILL 

SB201 

*1,S0F1LL 

86,SOMODE*l 

#5,$QCNT 

P3,-(SP) 

R4,-(SP) 

R5,-(SP) 

SOMODEfl,R4 

R4 

»6,R4 

R4, SOMODE 

$0FILL,R4 

10(SP),R5 

R3 

R5 

3S 

R5 

P5 

R5 

R5,P3 

R3 

SOMODE 

7$ 



{PICKUP THE NUMBER OF DIGITS 10 TYPE 
{GET THE ZERO FILL SWITCH 

;SET THE ZERO FILL SWITCH 

;SET FOR SIX(6) DIGITS 

I SET THE ITERATION COUNT 

{SAVE R3 

{SAVE R4 

} SAVE R5 

{GET THE NUMBER OF DIGITS TO TYPE 

{SUBTRACT IT FOR MAX. ALLOWED 

{SAVE IT FOR USE 

{GET THE ZERO FILL SWITCH 

{PICKUP THE INPUT NUMBER 

{CLEAR THE OUTPUT WORD 

{ROTATE MSB INTO "C" 

{GO DO MSB 

;KORM THIS DIGIT 



:GET LSB OF THIS DIGIT 
{TYPE THIS DIGIT? 
jbR IF NO 
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1388 


006454 


042703 


177770 


1389 


006460 


001002 




1390 


006462 


005704 




1391 


006464 


001403 




1392 


006466 


005204 




1393 


006470 


052703 


000060 


1394 


006474 


052703 


000040 


1395 


006500 


110337 


006536 


1396 


006504 


104400 


006536 


1397 


006510 


105337 


006540 


1398 


006514 


003347 




1399 


006516 


002402 




1400 


006520 


005204 




1401 


006522 


000744 




1402 


006524 


012605 




1403 


006526 


012604 




1404 


006530 


012603 




1405 


006532 


012616 




1406 


006534 


000200 




1407 


006536 


000 




1408 


006537 


000 




1409 


006540 


000 




1410 


006541 


000 




1411 


006542 


000000 




1412 








1413 








1414 








1415 








1416 


006544 


010046 




1417 


006546 


016600 


000002 


1418 


006552 


005740 




1419 


006554 


111000 




1420 


006556 


016000 


006564 


1421 


006562 


000200 




1422 








1423 








1424 








1425 








1426 








1427 


006564 


001100 




1428 




104400 




1429 


006566 


005732 




1430 




104402 




1431 


006570 


005774 




1432 




104404 




1433 


006572 


006114 




1434 




104406 




1435 


006574 


006610 




1436 




104410 




1437 


006576 


006620 




1438 




104412 




1439 


006600 


007042 




1440 




104414 




1441 


006602 


006732 




1442 




104416 




1443 


006604 


007064 







B1C 


#177770, P3 




BNE 


4$ 




TST 


R4 




BEO 


5$ 


48! 


INC 


R4 




BIS 


*'0,R3 


5s: 


BIS 


#' »R3 




MOVB 


R3,8$ 




TYPE 


»8S 


7$: 


DECB 


SOCNT 




BGT 


2$ 




BLT 


6$ 




INC 


R4 




BR 


2$ 


6$: 


MOV 


(SP)+,Rb 




MOV 


(SP)+,R4 




MOV 


(SP)+,R3 




MOV 


(SP)+,(SP) 




RTS 


PO 


8$: 


• BYTE 







.BYTE 





80CNT: 


.BYTE 





SOFILL: 


• BYTE 





SOMODE: 








{GET HID OF JUNK 

;TEST FOR 

{SUPPRESS THIS 0? 

;BR IF YES 

{DON'T SUPPRESS ANYMORE O'S 

{MAKE THIS DIGIT ASCII 

{MAKE ASCII IF NOT ALREADY 

{SAVE FOR TYPING 

{GO TYPE THIS DIGIT 

{COUNT BY 1 

{BR IF MORE TO DO 

{BR IF DONE 

{INSURE LAST DIGIT I5N'T A BLANK 

{GO DO THE LAST DIGIT 

{RESTORE R5 

{RESTORE R4 

{RESTORE R3 

{SET THE STACK FOR RETURNING 

{RETURN 

{STORAGE FOR ASCII DIGIT 

{TERMINATOR FOR TYPE ROUTINE 

{OCTAL DIGIT COUNTER 

{ZERO FILL SWITCH 

{NUMBER OF DIGITS TO TYPE 



{TRAP HANDLER 

STRAP: MOV RO,-(SP) 

MOV 2(SP),R0 

TST -(PO) 

MOVB (RO),RO 

MOV STRPAD(R0),R0 

RTS RO 



{SAVE RO 

{GET TRAP ADDRESS 

{BACKUP BY 2 

{GET RIGHT BYTE OF TRAP 

{INDEX TO TABLE 

{GO TO ROUTINE 



{TRAP TABLE 

{ ROUTINE 



STRPAD: STYPE 
SREADC 
8READS 
SACCEPT 
SPWAIT 
SXWAIT 
.STPS 
.KBDIN 
„SUSWR 



TYPEsTRAP+O 

GETCHRaTRAP+2 

GETSTRsTRAP+4 

ACCEPTaTRAP+6 

RWAITsTRAP+10 

XWAITsTRAP+12 

5TPS=TRAP+14 

KBDINsTRAP+16 
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1444 

1445 

144C 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1434 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

148J 

1484 

14(95 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 



006610 
006614 



104420 
606750 
104422 



104400 
000137 



007462 
006624 



006620 104400 007505 



006624 
006626 



011646 
004037 



006350 
006632 104400 010021 



006636 
006642 
006650 
006656 
006660 



016646 
016666 
0-16666 
012616 
004037 



000004 

00C004 000006 

000002 000004 

006350 



006664 104400 007564 



006670 000002 



006672 
006700 
006702 



012737 006704 000024 

000000 

0Q0 7 7b 



006704 
006712 
006716 
006722 
006726 

006732 
006740 
006742 



012737 
012706 
104400 
104414 
00013T 



006672 
001070 
007616 
000000 
000200 



032737 000001 

001437 

042777 000100 



•ICTSWX 



SUSWRaTRAP*20 
@ET3WIsTRAP*22 



f SPECIAL PRINTOUT ROUTINES 

f<15><12> WAITING AT LOC «SP» 



IRWAITl 


TKPE 
JMP 


,MSG15 
WAI1P0 




SXWAITl 


TYPE 


,MSG16 




WAITPOt 


MOV 
JSR 


<SP), »(SP) 
R0i$i2O16 




T¥PE 


#MSG2§ 






MOV 
MOV 
MOV 
MOV 
JSR 


4(SP) #»(SP) 
4(SP), 6(SP) 
2(SP), 4CSP) 
CSPJ+, (SP) 
R0,SB20I6 



{«iS><i2» WAITING FOP CLEAR TO SEND AT LOC <SPXBP> 

{SETUP ADDRESS OP CALL FOR PRINTOUT 
{PRINTOUT ADDRESS 



I «DMBB LINE STATUS REGb > 

I MOV CSR TO BOTTOM OF STACK 
{MOVE PSW UP A WORD 
{MOVE PC UP A WORD 
{MOVE CSR UP A WORD 
JGO PRINT CSR 

TYPE #MSG18 l<t><15><12> 

{GIVE IT LINE FEED 

RTI t AND RETURN TO CALLER 

f *»«*«**«**••*«**»*»•*•»•••»««*«*•»#•»»#«««#«*#•»«*#«#«»««*« 

I 

fPOWER DOWN ROUTINE. 

{SINCE INIT IS ISSUED IN A PWR DN/UP SEQUENCE, 

{PROGRAM MUST BE RESTARTED AGAIN, 

I 



SPwRDNl MOV 
HALT 
BR 



SSPwRUPr§#24 
,»2 



I 

JPOWER UP ROUTINE, 

{MESSAGE "POWER HAS FAILED.,," WILL BE PRINTED OUT, 

{PROGRAM WILL BE RESTARTED, 

J 

8PWRUP! MOV &8PWRDN#0#24 
MOV #STACK,SP 

TYPE #M5G20 {<15><12> POWER FAILED,, 
STPS,PPTYO 
JMP PS200 



.KBDINi BIT 
BEQ 
BIC 



8BIT0,FLAG 

OUT 

8100, PTKS 



{TEST ~G FLAG 
{NO, EXIT 
{CLEAR TTY IE 
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1500 


006750 


104400 


010131 




.SETSWI 


:TYPE 


,SWEU 


{TYPE SWRs 


1501 


006754 


017746 


002064 






MOV 


9SWH,»(SP) 


{SET UP OCTAL TYPEOUT 


1502 


006760 


004037 


006350 






JSR 


RO,$B2016 


{DO IT 


1503 


006764 


104400 


010141 






TYPE 


,NEU 


JTKPE NEWs 


1504 


006770 


017737 


002050 


001544 




MOV 


3SWR,W0RK 


J SET UP FOR CR DEFAULT 


1505 


006776 


104406 


001544 






ACCEPT 


, WOPK 


J GET VALUE 


1506 


007002 


013777 


001544 


002034 




MOV 


WORK,|SWR 


{REPLACE IT 


1507 


007010 


032737 


000002 


011042 




BIT 


#BIU,FLAG 


;SEE HOW WE GOT HERE 


1508 


007016 


001005 








BNE 


IS 


{ WRUNG WAY? 


15-09 


007020 


005777 


172472 






T5T 


PTKB 


{CLEAR BUFFER 


1510 


007024 


052777 


000100 


172462 




BIS 


3100, 0TKS 


, RESET TTY IE 


1511 


007032 


042737 


000003 


011042 


is: 


BIC 


IBIT0+BIT1,FLAG 


{CLEAR FLAG BITS 


1512 
1513 


007040 


000002 






OUT! 


RTI 




;EX1T 


1514 


007042 


042766 


000340 


000002 


,stps: 


BIC 


#PRTY7#2(SP) 


{CLEAR OUT PRIORITY BITS 


1515 


007050 


057666 


000000 


000002 




BIS 


PCSP),2(SP) 


{SET NEW PRIORITY 


1516 


007056 


062716 


000002 






ADD 


S2,(SP) 


{SETUP EXIT 


1517 
1518 


007062 


000002 








RTI 




{EXIT 


1519 


007064 


013746 


000006 




.SUSWRj 


MOV 


6,-(SP) 


fSAVE 6 ON STACK 


1520 


007070 


013746 


000004 






MOV 


4,»(SP) 


fSAVE 4 ON STACK 


1521 


007074 


012737 


007122 


000004 




MOV 


#13,4 


{SETUP TIMEOUT 


1522 


007102 


012737 


000340 


000006 




MOV 


#340*6 


{SET PRIORITY 


1523 


007110 


022777 


177777 


001726 




CMP 


8"1,8SWR 


;TEST FOR 177570 


1524 


007116 


001402 








BEQ 


2$ 


{NOT ALL l'S 


1525 


007120 


000407 








BR 


3S 


{IT'S THERE - EXIT 


1526 


007122 


022626 






13! 


CMP 


(SP)4,(SP)* 


{ADJUST STACK AFTER TRAP 


1527 


007124 


012737 


000176 


011044 


2SJ 


MOV 


#SWREG,SWR 


{REPLACE HARDWARE REGISTERS 


1528 


007132 


012737 


000174 


011046 




MOV 


SDISPREG, DISPLAY (WITH SOFTWARE REGISTERS 


1529 


007140 


012637 


000004 




38! 


MOV 


(SP)+,4 


{RESTORE 4 


1530 


007144 


012637 


000006 






MOV 


(SP)+,6 


{RESTORE 6 


1531 


007150 


000002 








RTI 




{EXIT 
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1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 



AREA RESERVED FOR MOST ASCIZ MESSAGES. 



007152 000040 MSGOOt .ASCIZ / / 

007154 005015 047111 042524 MSG01: .ASCIZ < 15>< 1 2>/INTERFACE TYPE / 

007177 015 044412 051123 MSG02I .ASCIZ <15><12>/ISP NOT LOADED!!/ 

007222 005015 052502 020123 MSG03: .ASCIZ <15><12>/BUS ADDRESSa/ 

007241 015 053012 041505 MSG04! .ASCIZ <15><1 2>/VECTOP ADDRESSa/ 

007263 015 050012 044522 MSG05: .ASCIZ <1 5><l2>/PRIORITYa/ 

007277 015 050012 051101 MSG06: .ASCIZ <15><1 2>/PARAMS «ls/ 

007314 005015 040520 040522 MSG07: .ASCIZ <15><12>/PARAMS 12s/ 

007331 015 040412 041523 MSGOfl ! .ASCIZ <15><12>/ASCII PARAMa/ 

007350 005015 042523 020124 MSG09X .ASCIZ <15><12>/SET SWITCHES.../ 

007372 005015 047105 042524 MSGlOl .ASCIZ <15><12>/ENTER DATA/<15><12> 

007411 015 042412 042116 MSGll: .ASCIZ <15><12>/END OF PASS / 

007430 040440 020124 047514 MSG12: .ASCIZ / AT LUC / 

037441 040 041522 020126 MSG13J .ASCIZ / KCV CSRs/ 

007453 040 041530 051123 MSG14: .ASCIZ / XCSRa/ 

007462 005015 053440 044501 MSG15: .ASCIZ <15><12>/ WAITING AT LOC / 

007505 015 053412 044501 MSG16J .ASCIZ <15><12>/WAITING FOR CLEAR TO SEND AT LOC / 

007551 040 020041 041440 MSG17: .ASCIZ / 1 CSRa / 

007564 006456 000012 MSGlBi .ASCIZ /./<15><J2> 

007570 005015 047516 041440 MSG19: .ASCIZ <15><12>/N0 CLOCKS AVAILABLE/ 

007616 005015 047520 042527 MSG20: .ASCIZ <15><1 2>/POWER FAILED../ 

007637 015 047012 020117 MSG21: .ASCIZ <15><12>/NO MODE SELECTED./ 

007663 015 044412 020106 MSG22: .ASCII <15><12>/IF CALLING, DIAL NUMBER/ 

007713 015 044412 020106 .ASCIZ <15><12>/IF ANSWERING, PLACE MODEM IN AUT0-AN5WER/<15>«1 l> 

007767 073 041040 042101 MSG23: .ASCIZ /; BAD DATAs/ 

010003 040 020040 047507 MSG24J .ASCIZ / GOOD DATAa/ 

010021 015 020012 046504 M5G25: .ASCIZ <15><12>/ DMBB LINE STATUS REGISTERS / 

010060 005015 051124 047101 MSG26: .ASCIZ <15><1 2>/TRANSMl 7/TED DATA»/<15><1 2> 

010106 005015 042522 042503 MSG27: .ASCIZ < 15><1 2>/PECEIVED DATAa/<i5><i 2> 

010131 015 051412 051127 SWEQ: .ASCIZ <15><l2>/SWRa / 

010141 040 042516 036527 NEU! .ASCIZ / NEtoa / 

010150 052536 005015 000 CTLU: .ASCIZ /"U/<15><12> 

010155 177 000177 MFILL: .ASCIZ <1 77><1 77> 

.EVEN 



iiiliii! 

; i 
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(1) 






1541 






1542 






1543 


010160 


047104 


1544 


010164 


175200 


1545 


010166 


000350 


15 46 


010170 


000200 


1547 


010172 


177777 


1548 


010174 


177777 


1549 


010176 


010356 


1550 






1551 






1552 






1553 




100000 


1554 




040000 


1555 




010000 


1556 




000040 


1557 




000020 


1558 




000002 


1559 




000001 


1560 







1 DN-11 INTERFACE SERVICE PARAMS 



•«««##» 



DN: .ASCIZ "DN 

DNBA: 175200 

DNIV: 350 

DNPRH 200 

DNPARl: 177777 

DNPAP2: 177777 

DNPAR3: D1ALNU 



PWlslOOOOO 

ACRs40O0O 

DLOalOOOO 

DSS=40 

PNDa20 

Dpa2 

CRQal 



{BUS ADDRESS 

J INTERRUPT VECTOR 

{PRIORITY 

{NOT USED 

{NUT USED 

{ADDRESS OF DIAL t 



{POWER INDICATOR 
{ABANDON CALL AND RETRY 
{DATA LINE OCCUPIED 
{DATA SET STATUS 
{PRESENT NEXT DIGIT 
{DIGIT PRESENT 
{CALL REQUEST 
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1561 








1562 








15*>3 








1564 


010200 


013704 


010164 


1565 


010204 


005014 




1566 


010206 


005037 


011032 


1567 


010212 


032737 


000002 011032 


1568 


010220 


001774 




1569 


010222 


012703 


010356 


1570 


010226 


012714 


000001 


1571 


010232 


032714 


100000 


1572 


010236 


001425 




157 3 








1574 


010240 


011402 




1575 


010242 


005003 




1576 


010244 


104003 




1577 


010246 


000137 


010200 


1578 








1570 


010252 


032714 


000200 


1580 


010256 


001775 




1581 


010260 


042714 


000200 


1582 


010264 


032714 


140000 


158 3 


010270 


001003 




1584 








158b 








1586 


010272 


032714 


000020 


1587 


010276 


001005 




1588 








1589 


010300 


011402 




1590 


010302 


005003 




1591 


010304 


104004 




1592 


010306 


000137 


010200 


1593 








1594 


010312 


1 12364 


000001 


1595 


010316 


052714 


000002 


1596 


010322 


105713 




1597 


010324 


001352 




1598 








1599 


010326 


032714 


000200 


1600 


010332 


001775 




1601 








1602 


010334 


037714 


040000 


1603 


010340 


001405 




1604 








1605 


010342 


01 1402 




1606 


010344 


005003 




1607 


010346 


104005 




1608 


010350 


000137 


010200 


1609 








1610 


010354 


000207 




161 I 








1612 


010356 


03447. 


032467 031460 


Ibl 3 


010364 


000060 




1614 


010366 


000000 


000000 000000 


1615 


010374 


000000 


000000 000000 



; START OF DN-tl CODE 



MOV 
CLR 
CLP 
BIT 
BEQ 
MOV 
MOV 
BIT 
BEQ 



BIT 
BEQ 
BIC 
BIT 
BNE 



BIT 

BNE 

MOV 
CLR 
HLT+4 
JMP 

MOVB 

BIS 

TSTB 

BNE 

BIT 
BEQ 

BIT 

BEU 

MOV 
CLR 
HLT+5 
JMP 



DNEX: RTS 
DIALNO/ .ASC1Z 



R4 



TIME 



DNBA, 

<R4) 

TIME 

82, 

.-6 

SDIALN0,R3 

SCRQ, 9CSR 

#pwi, ecsp 

DNL1X 



MOV 0CSR# 

CLR R3 

HLT+3 

JMP DNGO 



R2 



/SETUP BUS ADOK 
jRESET DN-H 
/RESET TIMER 
/AND rtAIT 2 SECS 

/SETUP DIAL If ADDRESS 
/SET CALL REQUEST 
;IS DN AVAILABLE 
/BR IF YES 

;SETUP CSR FOR PRINTOUT 



/PRINTOUT "UN NOT AVAILABLE" 
J RESTART 



8DONE, 9CSR /IS DONE FLAG SET? 

DNL1 /WAIT IF NO 

8DONE, 9CSP /RESET DONF 

»ACF+PWI,eCSR /AN* ERRORS? 

DNL1E ;BR LF YES 



«PND# 
DNL1X 

PCSR, 
R3 

DNGC1 

(R3)+, 
&DP, 
(R3) 
DNL1 

SDONE, 
DNL2 

»ACH# 
DNEX 

0CSP# 
P3 



yCSM ;IS PRESENT NEXT DIGIT SET 
/BR IF YES 

R2 i SETUP CSR FOR PRINTOUT 

.•PRINTOUT "UN ERROR" 
/RESTART 

1(R4) /LOAD NEXT DIGIT 
PCSR ;SET DIGIT PRESENT 

/WAS THAT LAST CHAR? 

;BP IF NO 

0CSR /WAIT FOR DONE FLAG 



J WAS CALL ABANDONED? 
/BR IF NU 



; SETUP CSR FOR PRINTOUT 



DNGU 
PC 

"8975030" 
0,0#0» Of 0,0 



/PRINTOUT "CALL ABANDONED" 
/RESTART 



/RETURN TU ITEP 

/NUMBER TU DIAL 
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1616. 






1617 






1618 






1619 






1620 






1621 


010402 


046504 000102 


1622 


010406 


170500 


1623 


010410 


000310 


1624 


010412 


000200 


1625 


010414 


000000 


16 26 


010416 


177777 


1627 


010420 


177777 


1628 






1629 






1630 






1631 






1632 






1633 






1634 






1635 






1636 






1637 







• »■»#»##» 



DMU-B INTERFACE SERVICE PARAMS 



■###»**»#»**# 



»##«#«««»«««««««« 



«#««« 
«««•»«« 



DMB: 


.ASCIZ 


MBA: 


170500 


IV/ 


310 


PRIO: 


200 


PARAl: 





PARA2: 


177777 


PARA3: 


177777 



ZlSH NAME 
/BUS ADDRESS 
/VECTOR ADDRESS 
/PRIORITY 
/PARAM 81 
ZPARAM 82 
/PARAM 83 
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8EG 0040 



1638 
1639 










1 


DM-11B 


INTERFACE SERVICE ROUTINE 


1640 
1641 


010422 


000240 






******* 
DMBGOl 


NOP 






1642 


010424 


013704 


010406 






MOV 


MBA, R4 


1 SETUP BUS ADUR INDEX 


1643 


010430 


005037 


011032 






CLR 


TIME 


I RESET TIMER 


1644 


















1645 


















164b 


010434 


052714 


006000 






BIS 


KS+CM, 9CSR 


jCLEAR DM-11 b 


1647 


010440 


032714 


000020 






BIT 


SBUSY, 9CSR 


JWAIT TIL FREE 


1648 


010444 


001375 








bNE 


.-4 




1649 


010446 


013714 


010414 






MOV 


PARA1, iCSP 


t SELECT LINE » 


1650 


010452 


052764 


000003 


000002 




BIS 


0DTR+LE,2(R4) 


*SET DATA TERM RDY & LINE ENABLE 


1651 


010460 


032737 


020000 


001562 




BIT 


»20000#FLAGS 


|HAS DN11 MADE CONNECTION YET? 


1652 


010466 


001002 








BNE 


18 


;BR IF YES 


1653 


010470 


104400 


007663 






TYPE 


,HSG22 


ITYPE "MAKE CONNECTION" 


1654 


















1655 


010474 


032777 


000005 


000342 


1SI 


BIT 


#OWO*XLB,8>SWR 




1656 


010502 


001444 








BEQ 


REX1 




1657 


















1658 


















1659 


010504 


052764 


000004 


000002 


STAPTXl 


BIS 


IRQTS, 2CR4) 


fSET REQUEST TO SEND 


1660 


















1661 


010512 


032764 


000040 


000002 


CTSWi 


BIT 


»CTSf LSTAT(R4) US CLEAR TO SEND SET? 


1662 


010520 


001016 








BNE 


CTSOK 


;BR IF YES 


1663 


010522 


023727 


011032 


000036 




CMP 


TIME, #36 


liO SECS ELA5PED? 


1664 


010530 


103770 








BLO 


CTSW 


JBR IF NO 


1665 


010532 


016446 


000002 






MOV 


LSTAT(R4),«(SP) 


j TYPE CONTENTS OF RCSR 


1666 


010536 


032777 


010000 


000300 




BIT 


#SW12,#SWR 


^INHIBIT TYPEOUTS? 


1667 


010544 


001001 








BNE 


IS 


JBR IF YES 


1668 


010546 


104412 








XWAIT 




^PRINTOUT 'WAITING FOR CTS* 


1669 


010550 


005037 


011032 




IS! 


CLR 


TIME 


IRESET TIMtR 


1670 


010554 


000756 








BR 


CTS* 


{WAIT SOME MORE 


1671 


















1672 


010556 








CTSOKj 








1673 


















1674 


010556 


012737 


177777 


011024 


HEX! 


MOV 


l-lt SETTLE 


>SET UP DELAY FLAG 


1675 


010564 


005037 


010616 






CLR 


TEMPI 




1676 


010570 


012737 


000014 


010620 




MOV 


«14»TEMP2 




1677 


010576 


062737 


000001 


010616 




ADD 


81, TEMPI 




1678 


010604 


001374 








BNE 


.-6 




1679 


010606 


005337 


010620 






DEC 


TEMP2 




1680 


010612 


00137! 








BNE 


.-14 




1681 


010614 


000207 






PEXlt 


RTS 


PC 


1 RETURN TO CONTROL PROGRAM 


1682 


















1683 


010616 


000000 






TEMPU 









1684 


010620 


000000 






TEMP2: 









1685 




000001 








UwOsl 






1686 




000002 








0*1 = 2 






1687 




000004 








TLBs4 






1688 




000004 








XLBs4 






1689 




000010 








ILBslO 






1690 


















1691 










J 


RCSR EQUATES 




1692 












.EQUIV 


R4,RCSP 




1693 












.LUUIV 


R4,CSR 
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1694 




1695 


100000 


1696 


000100 


1697 


000040 


1698 


010000 


1699 


004000 


1700 


002000 


1701 


001000 


1702 


000400 


1703 


000200 


1704 


000100 


1705 


000040 


1706 


000020 


1707 


000017 


1708 




1709 




1710 


000002 


1711 




1712 


000004 


1713 


000002 


1714 


000001 


1715 





RIslOOOOO 

CFslOO 

CTSMO 

SRDalOOOO 

CSs4000 

CM«2000 

MMslOOO 

STEPB400 

DONE&200 

lEalOO 

SE840 

BUSYB20 

LINE&17 



/BUST 



ILINE STATUS REGGRSTER EQUATES 
LSTATs2 

RQTS84 

DTR=2 

LEsl 



;R1NG INDICATOR 

jCAMRIER FLAG 

jCLEAR TO SEND 

»SEC. RECEIVE DATA 

fCLEAR SCAN 

jCLEAR MUX 

jMAINT MODE 

| STEP 

fDONE 

I INTERRUPT ENABLE 

;SCAN ENABLE 

;LINE NUMBER 



; REQUEST TO SEND 
|DATA TERMINAL READY 
ILINE ENABLE 
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.sllOOO 

{ THE INTERFACE SERVICE ROUTINE IS LOADED HERE 

{THE FOLLOWING 18 WORDS ARE USED AS 
{THE LINKAGE BETWEEN THE ISR AND THE 
^CONTROL PROGRAM. 



{BUS ADDRESS 
; VECTOR ADDRESS 
{PRIORITY 
{PARAM 81 
{PARAM #2 
{PARAM 33 

{INITIAL READ DATA ADDRESS 

{INITIAL XMIT DATA ADDRESS 

{LINE SETTLE DELAY FLAG 

{INITIAL RCV CHAR COUNT 

{ADDR OF BIN TO OCT TYPE ROUTINE 

{TIMER 

{ADDR OF 1TEP PARAMS 

{ISR ENTRY ADDRESS 



1716 




011000 


1717 






1718 






1719 






1720 






1721 






1722 






1723 






1724 






1725 


011000 




1726 


011000 


000002 


1727 


0U004 


000001 


1728 


011006 


000001 


1729 


011010 


000001 


1730 


011012 


000001 


1731 


011014 


oooor>- 


1732 


011016 


ooor 


1733 






1734 


011020 


000001 


1735 


011022 


000001 


1736 


011024 


000001 


1737 


011026 


000001 


1738 


011030 


000001 


1739 


011032 


000001 


1740 


011034 


000001 


1741 


011036 


000001 


1742 


01 1040 




1743 


01 1040 


000001 


1744 


011041 




1745 


01 1041 


oooooi 


1746 






1747 


011042 


000001 


1748 


011044 


177570 


1749 


0U046 


177570 


1750 


011050 


000001 


1751 


011052 


000001 


1752 


011054 


000001 


1753 


011056 


oooooi 


1754 


011060 


000001 


1755 


011062 


OOOOOI 


1756 


011064 


OOOOOI 


1757 


011066 


OOOOOI 


1758 


011070 


OOOOOI 


1759 


011072 


OOOOOI 


1760 


011074 


OOOOOI 


1761 






1762 


01107b 


OOOOOI 


17b3 


01110U 


OOOOOI 


1764 


011102 


OOOOOI 


1765 




OOOOOI 



VISR! 










ISR: 


.BLKW 


2 


{.ASCIZ 


8 DXX 9 


BA: 


,BLKW 


1 


{175610 




VA! 


.BLKW 


1 


{300 




PRIOR! 


.BLKW 


1 


{340 




PARAMl! 


.BLKW 


1 


:-i 




PARAH2: 


.BLKW 


1 


{-l 




PARAM31 


.BLKW 


1 


{-l 




IRDA: 


.BLKW 


1 


{ .WORD 





IXDA: 


.BLKW 


1 


{ .WORD 





SETTLE: 


.BLKW 


1 


{.WORD 





IRCC: 


.BLKW 


1 


{ .WORD 





B2016: 


.BLKW 


1 


{ .WORD 





TIME: 


.BLKW 


1 


{ .WORD 





MODEA: 


.BLKW 


1 


{ .WORD 







.BLKW 


1 


{ .WORD 


START 


TX.TERM: 












.BLKB 


1 


{ .BYTE 


000 


RX.TERM: 












.BLKB 


1 


{.BYTE " 


012 


FLAG: 


.BLKW 




1 




SWR: 


177570 








DISPLAY:177570 








START: 


.BLKW 


1 


{NOP 





{TRANSMITER TERMINATING CHAR. 
{RECEIVER TERMINATING CHAR. 



START: 


.BLKW 
.BLKW 
.BLKW 


1 
1 

1 


{NOP 
{NOP 
{NOP 






.BLKW 


1 


{NOP 




cont.: 


.BLKtt 
.BLKW 
.BLKW 


1 

1 
1 


{NOP 
{NOP 
{NOP 




FINIi 


.BLKW 


1 


{MOV 


8340#PS 




.BLKW 


1 


{MOV 


#ENTER,2(SP) 




.BLKW 


1 


{JSR 


PC#SAVE05 




.BLKW 


1 


{RTS 


PC 


ENTER: 


.BLKW 


1 


{JSR 


PCRE5T05 




.BLKW 


1 


{MOV 


8-1, DELAY 




.BLKW 


1 


{JMP 


CONT. {CON 




.END 









{LOCK OUT INTERUPTS, 
{SET FOR RETURN IF S*14=0 
{GO SAVE YOUR REGISTERS. 
{EXIT 



{GO AND RESTORE REGISTERS 
{INDICATE DELAY FOR TX. 
{CONTINUE IN PROGRAM 
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ACCEPTS 


104406 


725 


1142 


1259 14341 1505 


ACR 


s 


040000 


15548 


1582 


1602 


ANYEX 




005024 


11441 






ANYMOR 


005014 


11428 






ARIA 




003704 


922» 


9263 


935 


ASTRK 




001532 


702 


7781 




BA 




011004 


17278 






BEGIN 




003254 


657 


8179 


822 900 9b8 


BITO 


s 


OOOOOI 


6208 


955 


1497 1511 


B1T00 


s 


OOOOOI 


6108 


620 




B1T01 


s 


000002 


609S 


619 




BIT02 


s 


000004 


6083 


618 




B1T03 


£ 


000010 


6078 


617 




BIT04 


3 


000020 


6068 


616 




BIT05 


- 


000040 


6058 


615 




BIT06 


= 


000100 


604# 


611 




BIT07 


= 


000200 


6039 


613 




BIT08 


S 


000400 


6028 


612 




HIT09 


X 


001000 


6018 


611 




BIT1 


s 


000002 


6198 


976 


1507 1511 


BIT10 


Z 


002000 


600S 






BIT11 


= 


004000 


5998 






BIT12 


s 


010000 


598» 






BIT13 


= 


020000 


597* 


1159 




BIT14 


s 


040000 


596 8 


1119 




BIT15 


= 


100000 


5958 


1207 




BIT2 


=r 


000004 


6189 






B1T3 


= 


000010 


617S 


708 


740 


BIT4 


s 


000020 


616# 


712 




BITS 


s 


000040 


6158 


717 


728 


BIT6 


s 


000100 


6148 






BIT7 


s 


000200 


6138 






BITS 


s 


000400 


6121 






BIT9 


s 


001000 


6118 






BPTVEC 




000014 


6270 






BUSY 


s 


000020 


1647 


17068 




B2016 




011030 


1076* 


17388 




CF 


= 


000100 


16968 






CLRIB 




004344 


10398 


1041 




CM 


s 


002000 


1646 


17008 




CONT, 




011060 


17541 






CRLF 




001536 


721 


736 


7798 986 1106 


CRQ 


s 


OOOOOI 


15591 


1570 




CS 


= 


004000 


1646 


16999 




CTLU 




010150 


1329 


15403 




CTS 


3 


000040 


1661 


16971 




CTSOK 




010556 


1662 


16728 




CTSW 




010512 


16611 


1664 


1670 


DAT 




001564 


7931 


1018 




DIALNO 


010356 


1549 


1569 


16128 


DISPLfl 


I 


011046 


1528* 


17498 




DISPRE 


000174 


6528 


1528 




DLO 


s 


010000 


1555S 






DM8 




010402 


842 


890 


891 16211 


UHBGO 




010422 


1088 


16413 




DMBTST 


003544 


886 


8893 
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SEQ 0044 



DHCHK 


004574 


1003 


10860 








DMPHLT 


001200 


7008 


722 


735 






DMPLST 


001476 


726 


730» 


7601 


960 




DN 


010160 


834 


884 


885 


15439 




DNBA 


010164 


15441 


1564 








DNEX 


010354 


1603 


16101 








DNCO 


010200 


1084 


15648 


1577 


1592 1608 




DNIV 


010166 


15458 










DNL1 


010252 


15799 


1580 


1597 






DNLIE 


010300 


1583 


15898 








DNL1X 


010312 


1572 


1587 


15941 






DNL2 


010326 


15998 


1600 








0NPAR1 


010172 


15478 










DNPAR2 


010174 


15488 










DNPAR3 


010176 


15491 










DNPRI 


010170 


15468 










DONE ■ 


000200 


1579 


1581 


1599 


17038 




DP ■ 


000002 


15581 


1595 








DPI 


003004 


794 


8071 


809 






DPS 


00307b 


795 


8078 


810 






DP3 


003126 


796 


8078 


811 






DP4 a 


002604 


797 


8081 








DPS a 


003004 


798 


8098 








DP6 8 


003076 


799 


8108 








DP7 a 


003126 


800 


8118 








DSS b 


000040 


15560 










DTR ■ 


000002 


1650 


17138 








DUMP 


001342 


718 


7268 








EMTAB 


005270 


1165 


12158 








EMTVECs 


000030 


6308 










EMO 


005320 


1166 


1215 


12278 






EMi 


005333 


1216 


12278 








EM10 


0055b5 


1223 


12278 








EMU 


005642 


1224 


12278 








EM12 


005667 


1225 


12278 








EM13 


005711 


1226 


12278 








EM2 


005343 


1217 


12278 








EM3 


005363 


1218 


12278 








EM4 


005407 


1219 


12278 








EM5 


005422 


1220 


12278 








EM6 


005446 


1221 


12278 








EM7 


005542 


1222 


12278 








ENTER 


011076 


17628 










EOP 


004614 


10988 










ERBVECa 


000004 


62 3 f 










FINI 


011066 


17579 










FLAG 


011042 


700 
17478 


701* 


708* 


712* 716* 717* 728 


740 955* 


FLAGS 


001562 


7918 


823* 


837* 


843 887* 891* 1082 


1086 1651 


GETANY 


004776 


904 


907 


910 


915 920 11381 




GETBA 


003602 


882 


888 


894 


9018 




GETCHRs 


104402 


703 


1254 


1291 


14308 




GETEX 


003746 


923 


933 


9428 






GETIC 


006002 


12548 


1263 


1267 






GETIT 


003464 


829 


8758 


944 






GETPRI 


003626 


9098 











> 



1497 



1507 
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GETPRM 


003642 


9148 








GETP3 


003666 


913 


918 


9228 




GETSTRa 


104404 


880 


929 


1027 


14328 


GETVA 


003616 


9068 








GOT1C 


006040 


1257 


12648 






HLTX 


005262 


1208 


12118 






IBUF 


001604 


8038 


930 


931 


961 


IE a 


000100 


17048 








ILB = 


000010 


16898 








IOTVECa 


000020 


6288 








IRCC 


011026 


17378 








IRDA 


011020 


962 


1029* 


1116 


17348 


I5R 


011000 


1094 


17268 






IV 


010410 


16238 








IXDA 


011022 


963 


1018* 


1033* 


1110 


KBD1N s 


104416 


1100 


1211 


14428 




LE ■ 


000001 


1650 


17148 






LF 


001537 


7808 


1269 


1317 




LINE ■ 


000017 


17078 








LSTAT a 


000002 


1661 


1665 


17108 




LI 


001374 


729 


731 


7348 


751 


L2 


001426 


7438 


750 






L3 


001452 


741 


7538 






MANBA 


003404 


840 


845 


848 


8529 


MANIN 


003316 


8348 








MANINX 


003460 


862 


866 


8699 




MBA 


010406 


16228 


1642 






MFILL 


010155 


970 


15409 






MM a 


001000 


17018 








MODEA 


011034 


17408 








MSECS 


006334 


1046* 


1335* 


1337* 


13419 


MSGOO 


007152 


745 


755 


15409 




MSG01 


007154 


876 


15408 






MSG02 


007177 


897 


15408 






MSG03 


007222 


903 


15408 






MSG04 


007241 


906 


15409 






MSG05 


007263 


909 


15409 






MSG06 


007277 


914 


15409 






MSG07 


007314 


919 


15409 






MSG08 


007331 


924 


15408 






MSG09 


007350 


977 


980 


15409 




MSG10 


007372 


1026 


15409 






M8G11 


007411 


1103 


15409 






MSG12 


007430 


1167 


15409 






MSG13 


007441 


1196 


15401 






MSG14 


007453 


1202 


15409 






M8G15 


007462 


1452 


15409 






MSG16 


007505 


1455 


15409 






MSG17 


007551 


15400 








MSG18 


007564 


1468 


15408 






MSG19 


007570 


1068 


15409 






MSG20 


007616 


1493 


15409 






MSG21 


007637 


1015 


15408 






MSG22 


007663 


15401 


1653 






MSG23 


007767 


1178 


13409 






MSG24 


010003 


1185 


15401 







1029 



17358 



1038 
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1460 13401 
1109 13409 
11 IS 1540# 
1503 15408 
892 8968 
1049 10568 
959 9661 
1052 1063 10711 

685 771# 
12598 1262 
1498 15128 
1107 16861 
1113 1655 16851 
17308 
17311 
17321 

16238 1649 
1626S 
16271 

1D578 1986 
16248 
1729S 
5858 1065 1075 1122 1494 
5861 
5878 

5881 1152 
5898 
590S 
5918 

5921 619 1514 
1553# 1571 1582 
6291 

720 7778 878 927 1140 1314 
979 10108 
1010 10111 

6249 
16741 

1656 16813 
16951 
1659 17128 

967 9701 1016 
14368 
17448 
17058 

978 14468 
1674* 17368 
16989 

5388 818 1074 1124 1492 
17508 
16598 
1702S 

819 1065 1075 1122 1152 14401 1494 

820 14441 
10461 

1020 1022 10291 
1500 15401 
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SWPRNT 004116 658 943 9741 

m 0U044 828 837 838 834 837 860 b64 866 953 974 984 1011 1013 

|JJJ l031 ll0 » >»19 1159 1207 1501 1504 1506* 1523 1327* 1635 1666 

SWREG 000176 6531 953 974 1527 

SfcRNXT 004316 1032 10348 

SWHSET 004200 850 9928 

SWO » 000001 5848 

SWOO ■ 000001 5748 584 

SW01 s 000002 5738 583 

SW02 ■ 000004 5728 582 

SW03 « 000010 5711 581 

Sd04 3 000020 570# 580 

SW05 ■ 000040 5698 579 

SW06 a 000100 566* 578 

SW07 s 000200 567# 577 

SWOS ■ 000400 5663 576 

SW09 a 001000 5658 575 

SW1 s 000002 5838 

SW10 s 002000 5648 

SW11 s 004000 5638 

SW12 a 010000 5628 1101 1666 

SW13 ■ 020000 5618 

SW14 3 040000 5608 

SW15 s 100000 5598 

SW2 s 000004 5828 

SW3 a 000010 5818 

SW4 s 000020 5808 

SW5 a 000040 5798 

S\nh s 000100 5781 

SW7 a 000200 5778 

SW8 ■ 000400 576# 

SW9 s 001000 5758 

TBITVEs 000014 6259 

TEMPI 010|16 1675* |^77# 16839 

TEMPI OiO&gO 1676» 1679& 16848 

lluL S 11 !? 2 i330 * 1S66 * l367 16 * 3 * 1663 1669* 17398 

T1MEP 006312 648 1047 1036 1069 13351 

TIMEX 006332 1336 13391 



MSG25 


010021 


HBQ2b 


010060 


MSG27 


010106 


NEO 


010141 


NOISP 


003570 


NOLC 


004422 


NOQ 


004070 


NORTC 


004524 


NULL 


001524 


OCT 


006016 


OUT 


007040 


OWI ■ 


000002 


owo « 


000001 


PARAH1 


011012 


PARAM2 


011014 


PARAM3 


011016 


PARA1 


010414 


PARA2 


010416 


PAPA3 


010420 


PND « 


000020 


PRIO 


010412 


PRIOR 


011010 


PRTYO ■ 


000000 


PRTY1 a 


000040 


PRTY2 a 


000100 


PRTY3 s 


000140 


PRTY4 a 


000200 


PRTY5 s 


000240 


PRTY6 s 


000300 


PRTY7 s 


000340 


PWI a 


100000 


PWRVEC® 


000024 


QUES 


O0J526 


REST 


004202 


RESTHT 


004210 


RESVECs 


000010 


REX 


010556 


REXi 


010614 


RI a 


100000 


RQTS ■ 


000004 


RSTART 


004102 


RWA1T s 


104410 


RX 9 TER 


011041 


SE s 


000040 


SETSWIb 


104422 


SETTLE' 


011024 


SRD s 


010000 


STACK s 


001070 


START 


011050 


STARTX 


010504 


STEP • 


000400 


STPS s 


104414 


SUSWR s 


104420 


SUTIME 


004354 


SUXCC 


004272 


SWEQ 


010131 



TKB 001516 7681 948 983 1239 1309 

?K »Zllt ,!!?! "• "» ""• »" »«•• »»»•• 

TPB 001522 693® 7708 

TPS 001520 691 7698 

TRAPVEa 000034 6318 

TRTVECis 000014 626# 

TRX 001250 1160 1171 1191 1101 12071 

TR1 005226 U95 12008 

TTYINT 003760 948# 103S 

TX 9 TER 011040 17421 

TYPE a 10 4400 702 703 720 721 736 • 74S 733 S76 177 87S 197 903 906 

i?S? i?J* ,?£! «??? .? 2 ! 927 970 977 980 986 l0lS i026 l06S 

All ,4" IS! 4" Ul5 ll17 luo U62 l * 66 ** 67 ** 78 UBS 1190 

Wll \lll Mil i2S ! 126t i294 l314 i315 i3i 7 1 329 1 39 ® *«»•• i*»a 

v , QU00S }^ f 14M 1468 1493 1500 1303 1653 
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DZITAD„P11 01«DEC«76 lilOO CROSS REFERENCE TABLE •« 



OfOEC-76 11801 
USER STHBOfcS 



VDB 


002604 


VIGO 


004610 


VISR 


011000 


WAITPO 


006624 


WORK 


001544 


W0BK1 


001546 


W0RK2 


001550 


W0RK3 


001552 


WORM 


001554 


W0RK5 


001556 


W0RK6 


001560 


XLB ■ 


000004 


XSWPNT 


004144 


XWAIT s 


104412 


8ACCEP 


006114 


8B20CT 


006336 


SB201 


006364 


8B2016 


006350 


8CHAR 


001542 


8D0AGN 


004770 


8ERTTL 


005730 


8HLT 


005032 


8HLTAD 


005726 


SHLOT 


005036 


SLPADR 


003462 


80CNT 


006540 


80MOPE 


006542 


SPASS 


004774 


8PWRDN 


006672 


SPWRUP 


006704 


SPEADC 


005732 


SREAOS 


005774 


SRWAIT 


006610 


STRAP 


006544 


STRPAD 


006564 


STYPE 


001100 


SWORK = 


001544 


SXWAIT 


006620 


SOFILL 


006541 


a s 


01U04 



KBDIN 


006732 


RX 


001502 


SETS* 


006750 


STPS 


007042 


SUSWH 


007064 


,TX 


001504 



793 

1087 

847 

1453 

723* 

1505 

7851 

7868 

787# 

7868 

7899 

7908 

1655 

975 

14388 

12838 

746 

1365 

738 

706 

1126 

1153* 

641 
1155* 
11538 
822* 
1368* 
1363* 
821* 
639 
1480 
12358 
12508 
1435 
643 
1420 
6748 
7828 
1437 
1364* 
6358 
8)9 
1568 
17358 
17538 
1441 

762« 
1445 
1439 
1443 
7ft38 



8048 
10948 

875 
14578 

725 
1506 



16888 

9808 

1668 

1433 

1180 

13688 

756 

710 

11318 

12288 

11518 

1156* 

1154 

8708 
1397* 
1367* 
1098* 
14808 
14918 
1429 
1431 
14528 
14168 
14278 
1427 
1259 
14558 
1366* 
6388 
844 
1648 
17368 
17548 
14978 
962* 
15008 
15148 
15198 
963* 



985 
714 



1163 

1010* 

14098 

1372 

1104 

1491 



1260 

1376 
6478 
938 
1678 
17378 
17558 



17258 



891 



1141* 1142 



1143 



1504* 



V 



13638 



1076 
7838 



1375* 
11328 



1105 
1239* 



1139 

1240* 



1169 
1241 



1198 
1255 



1204 
1261 



13668 
1265 



1458 
1266 



1466 



1386* 14118 



14108 
6518 
973 
1680 
17388 
17568 



6556 
982 
17168 
17398 
17578 



6608 
987 
17268 
17408 
17588 



6998 
1014 
17278 
17418 
17598 



7628 
1071 
17268 
17438 
17608 



7638 
1165* 
17298 
17458 
17628 



7818 
12278 
17308 
17478 
17638 



8038 
1238 
17318 
17508 
17648 



8058 8078 

1319 1482 

17328 17348 

17518 17528 



MAINDEC-11-DZ1TA-D INTERPROCESSOR TEST PROGRAM MACY11 27(1006) 01-DEC-76 UlOl PAGE 51 
DZITAD.P11 01-DEO76 11:00 CROSS REFERENCE TABLE •- MACRO NAMES 



HELLO 
HLT 



6341 
1332 



ABS. 011104 



696 
1448 



772 
1540 



814 
1561 



825 
1616 



831 
1638 



872 
1717 



ERRORS DETECTED! 

DEFAULT GLOBALS GENERATED: 

DSKZ:DZITAD,DZITAD/S0L/CRF/ENJAMA=DZITAD.P11 
RUN-TIME: 9 14 1 SECONDS 
RUN-TIME RATIO: 107/25*4.1 
CORE USED: UK (21 PAGES) 




